Shareware Overload Trio 2

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / string26.zip / STRINGS.ASM < prev next >

Wrap

Assembly Source File | 1994-07-11 | 189KB | 5,702 lines

page 66,132 ;======================================================================= ; STRINGS.COM - a set of string handling functions for batch files. ; ; Syntax: ; STRINGS [/H][/M][/Pc ][var = ] function arg1 [, arg2] [, arg3] ; ; /? - Print help message ; /M - Use master environment block ; /Q - Suppress output to console ; /Pc - Use c as parse character instead of ',' ; /Bxx - Use xx as for base (base 10 default) ; /I - Install as TSR ; /U - Uninstall ; ; Revision History: ; ; CW Version 2.6 Fixed bug in findrec_file routine. ; CW Version 2.5 Added GT, GE, LT, and LE commands. ; CW Version 2.4 Fixed incompatibility with SHELLMAX (DOSMAX 2.1). ; CW Fixed bug with ASK command not accepting spaces. ; GS Fixed bug with parse_cmdline, it would scan past tail. ; CW Version 2.3 Added DOW and ERRLVL commands. ; CW Version 2.2 Fixed bug with ASK command. ; CW Version 2.1 Fixed bug with READ command. ; Version 2.0 New version with many more commands. ; ; Table of Initials: ; ; CW Chad Wagner, 1:369/11.0, chad.wagner@branch.fidonet.org ; GS Gary Smith, 1:226/1210 ; ;======================================================================= ; ;Equates ; RES_STACK equ offset end_of_resident+512 TRANS_STACK equ offset end_of_code+512 VAR_SIZE equ 128 ;Max size of variables DATABUFF_SIZE equ 2048 ;Size of file data buffer MAX_PARAMS equ 10 ;Max number of parameters DEF_PARSE_CHAR equ "," ;Default parse character ;------------------------------------------------------------------------ ;Code segment ;------------------------------------------------------------------------ code segment assume cs:code org 2ch local_environment dw ? ;Word containing the seg ; of the prog's env. blk. org 80h command_tail db ? ;Offset of the cmd tail. org 100h entry: jmp initialize program db 13,10,"STRINGS " version db "2.6 " copyright db "Copyright 1991, 1992 " db "Douglas Boling",10,13 db "First published in PC Magazine," db " December 29, 1992",13,10,0,"$",1Ah even ;Start data on word bndry dos_version dw 0 ems_version dw -1 xms_version dw -1 databuff_ptr dw 0 ;Ptr to file data buffer saved_ss dw 0 ;SS:SP saved on during saved_sp dw 0 ; multiplex execution saved_ssint dw 0 ;SS:SP saved on during saved_spint dw 0 ; interrupt function. int2fh dd -1 ;Old mux int vector xms_serv dd -1 ;Entry pt for ext mem drvr masterenv_seg dw 0 ;Segment of master env localenv_seg dw 0 ;Segment of local env num_params dw 0 ;Number of parameters passed dest_var_val dw 0 dest_var_name dw 0 ;Buffer pointers to parsed cmd_value dw 0 ; command line variables. var1_value dw 0 ; These pointers must be var2_value dw 0 ; kept in this order. var3_value dw 0 var4_value dw 0 var5_value dw 0 var6_value dw 0 var7_value dw 0 var8_value dw 0 var9_value dw 0 var10_value dw 0 number_base dw 10 ;Base for num conversion parse_char db DEF_PARSE_CHAR ;Char used to parse command quiet_flag db 0 ;Flag to suppress output console_out db 1 ;Flag for con out. use_mastenv db 0 ;Flag to use master env help_flag db 0 ;Forces help message install_flag db 0 ;Install as TSR remove_flag db 0 ;Remove installed db 0 ;Installed as TSR flag fill_char db " " ;Char used to fill zeros equalsub_char db 0cdh strings_namelen dw 7 ;Length of strings name strings_name db "STRINGS",0,0 ;Name of program shell_var db "COMSPEC",0,0 ;Extra zero needed, don't del shell_name db "COMMAND",0,0 ;Cmd shell file name shell_namlen db 7 ;Length of shell filename ems_header db 'EMMXXXX0' ;Expanded mem drvr header ; ; Table of command line switches and the corrsponding jump table ; cmd_switches db "h?mqpbiu" ;Letters of valid commands. cmd_switch_end = $ cmd_jmp_tbl dw offset switch_help ;This jump table is used to dw offset switch_help ; call the routines that dw offset switch_master ; process the command line dw offset switch_quiet ; arguments dw offset switch_pchar dw offset switch_base dw offset switch_install dw offset switch_remove ; ; Table of commands ; command_table db "LEFT",0 ;String functions db "RIGHT",0 db "MID",0 db "LENGTH",0 db "FIND",0 db "FINDC",0 db "LOWER",0 db "UPPER",0 db "CHAR",0 db "VAL",0 db "FILEDRIVE",0 db "FILEDIR",0 db "FILENAME",0 db "FILEEXT",0 db "PARSE",0 db "ADDCOMMAS",0 db "REPEAT",0 db "READ",0 ;File functions db "WRITE",0 db "FILESIZE",0 db "LINESIZE",0 db "TRUENAME",0 db "FILEDATE",0 db "FILETIME",0 DB "ERRLVL",0 ;2.3 CW db "VER",0 ;System functions db "ASK",0 db "INWIN",0 db "2FCHECK",0 db "ENVFREE",0 db "ENVSIZE",0 db "MASTERVAR",0 db "LOCALVAR",0 db "TRUEVER",0 db "FILES",0 db "LASTDRIVE",0 db "CODEPAGE",0 db "COUNTRY",0 db "BIOSDATE",0 db "GETKEY",0 db "LOCALENV",0 db "MASTERENV",0 db "ADD",0 ;Math functions db "SUB",0 db "MUL",0 db "DIV",0 db "AND",0 db "OR",0 db "XOR",0 db "NOT",0 db "CONVERT",0 DB "GT",0 ;2.5 CW DB "GE",0 ;2.5 CW DB "LT",0 ;2.5 CW DB "LE",0 ;2.5 CW db "PEEK",0 ;Progamming functions db "POKE",0 db "IN",0 db "OUT",0 db "INTERRUPT",0 db "SCAN",0 db "DAY",0 ;Time/Date functions db "MONTH",0 db "DATE",0 db "TIME",0 DB "DOW",0 ;2.3 CW db "MEMTOTAL",0 ;Memory status functions db "MEMFREE",0 db "XMSTOTAL",0 db "XMSFREE",0 db "XMSVER",0 db "EMSTOTAL",0 db "EMSFREE",0 db "EMSVER",0 db "UMBLARGE",0 db "STRINGSVER",0 ;Support functions db "INSTALLED",0 db "HELP",0 db 0 ;End of list flag ; ; Jump table for commands ; jump_table dw offset left_str dw offset right_str dw offset mid_str dw offset length_str dw offset find_str dw offset findc_str dw offset lower_str dw offset upper_str dw offset char_str dw offset val_str dw offset filedrive_str dw offset filedir_str dw offset filename_str dw offset fileext_str dw offset parse_str ;New dw offset commas_str ;New dw offset repeat_str ;New dw offset readrec_file dw offset writerec_file dw offset filesize_file dw offset numrec_file dw offset truename_file dw offset filedate_file ;New dw offset filetime_file ;New DW OFFSET errlvl_file ;2.3 CW dw offset ver_sys dw offset ask2_sys dw offset inwin_sys dw offset int2fcheck_sys dw offset envfree_sys dw offset envsize_sys dw offset mastervar_sys dw offset localvar_sys dw offset truever_sys ;New dw offset files_sys ;New dw offset lastdrive_sys ;New dw offset codepage_sys ;New dw offset country_sys ;New dw offset biosdate_sys ;New dw offset getkey_sys ;New dw offset localenv_sys ;New dw offset masterenv_sys ;New dw offset add_num dw offset sub_num dw offset mul_num dw offset div_num dw offset and_num ;New dw offset or_num ;New dw offset xor_num ;New dw offset not_num ;New dw offset convert_num ;New DW OFFSET gt_num ;2.5 CW DW OFFSET ge_num ;2.5 CW DW OFFSET lt_num ;2.5 CW DW OFFSET le_num ;2.5 CW dw offset peek_prog ;New dw offset poke_prog ;New dw offset in_prog ;New dw offset out_prog ;New dw offset interrupt_prog ;New dw offset scan_prog ;New dw offset day_time ;New dw offset month_time ;New dw offset date_time ;New dw offset time_time ;New DW OFFSET dow_time ;2.3 CW dw offset totalmem_mem ;New dw offset freemem_mem ;New dw offset totalext_mem ;New dw offset freeext_mem ;New dw offset extver_mem ;New dw offset totalems_mem ;New dw offset freeems_mem ;New dw offset emsver_mem ;New dw offset freeumb_mem ;New dw offset ver_strings ;New dw offset inst_strings ;New dw offset help_strings ;New jump_table_end = $ int2fname_tbl db "PRINT",0 ;Alias table for multiplex db "ASSIGN",0 ; interrupt install check db "DRIVER",0 db "SHARE",0 db "NET",0 db "NLS",0 db "ANSI",0 db "DOSBOX",0 db "HIMEM",0 db "DOSKEY",0 db "DISPLAY",0 db "GRAPHTBL",0 db "APPEND",0 db 0 ;End of list flag int2falias_tbl db 1 ;ID numbers of DOS programs db 6 ; that use the multiplex db 8 ; interrupt. db 10h db 11h db 14h db 1Ah db 40h db 43h db 48h db 0ADh db 0B0h db 0B7h day_list db "Sunday",0 db "Monday",0 db "Tuesday",0 db "Wednesday",0 db "Thursday",0 db "Friday",0 db "Saturday",0,0 month_list db "January",0 db "February",0 db "March",0 db "April",0 db "May",0 db "June",0 db "July",0 db "August",0 db "September",0 db "October",0 db "November",0 db "December",0,0 infomsg2 db "Removed",0 errmsg0 db "Need DOS " errmsg0ver db "2.0" db " or greater",0 errmsg1 db "Usage: STRINGS [/?][/M][/Q][/Pc][/Bn][/I][/U]" db " [env var =]" db " FUNCTION [Params]",13,10,10 db " /M - Use master environment",13,10 db " /Q - Suppress output to screen",13,10 db " /Pc - Use char c instead of ',' as the" db " parse character",13,10 db " /Bn - Use n as the number base",13,10 db " /I - Installs as resident code." db " DOS 3.3 or later required",13,10 db " /U - Uninstalls if resident",13,10 db 10,"For a list of commands type STRINGS /?",0 errmsg2 db "Not enough memory",0 errmsg3 db "Unknown command line switch",0 errmsg6 db "Illegal filename",0 errmsg7 db "Line numbers must be greater than 0",0 errmsg8 db "Line not found",0 errmsg10 db "Multiply overflow error",0 errmsg11 db "Divide by zero error",0 errmsg12 db "Addition overflow",0 errmsg13 db "Subtraction underflow",0 errmsg14 db "Number too large",0 errmsg15 db "Out of environment space",0 errmsg16 db "Can't find environment",0 errmsg17 db "No Expanded memory",0 errmsg18 db "Required parameter missing",0 errmsg19 db "No Extended memory",0 errmsg20 db "String not found",0 errmsg21 db "Not Installed",0 errmsg22 db "Can",39,"t remove",0 errmsg23 db "Already installed",0 errmsg24 db "Base must be within 2-16",0 endmsg db 13,10,0 doserr_tbl dw offset doserr_00 dw offset doserr_00 dw offset doserr_02 dw offset doserr_03 dw offset doserr_04 dw offset doserr_05 dw offset doserr_00 dw offset doserr_07 dw offset doserr_00 dw offset doserr_00 dw offset doserr_10 dw offset doserr_00 dw offset doserr_12 dw offset doserr_13 dw offset doserr_00 dw offset doserr_15 dw offset doserr_00 dw offset doserr_17 dw offset doserr_18 dw offset doserr_19 dw offset doserr_20 dw offset doserr_21 dw offset doserr_22 dw offset doserr_23 dw offset doserr_00 dw offset doserr_25 dw offset doserr_26 dw offset doserr_27 dw offset doserr_00 dw offset doserr_29 dw offset doserr_30 dw offset doserr_31 dw offset doserr_32 dw offset doserr_33 dw offset doserr_34 doserr_tblend = $ doserr_00 db "DOS Error",0 doserr_02 db "File not found",0 doserr_03 db "Path not found",0 doserr_04 db "Too many open files",0 doserr_05 db "Access denied",0 doserr_07 db "Memory Corrupted",0 doserr_10 db "Bad Environment block",0 doserr_12 db "File Access Invalid",0 doserr_13 db "Data Invalid",0 doserr_15 db "Not a proper Disk",0 doserr_17 db "Not same device",0 doserr_18 db "No more files",0 doserr_19 db "Disk Write Protected",0 doserr_20 db "Unknown unit",0 doserr_21 db "Drive not ready",0 doserr_22 db "Unknown command",0 doserr_23 db "CRC Data Error",0 doserr_25 db "Disk Seek error",0 doserr_26 db "Not a DOS disk",0 doserr_27 db "Sector not found",0 doserr_29 db "File Write fault",0 doserr_30 db "File Read fault",0 doserr_31 db "General failure",0 doserr_32 db "File sharing violation",0 doserr_33 db "File lock violation",0 doserr_34 db "Illegal Disk change",0 ;============================================================================ ; Multiplex Interrupt handler ;============================================================================ muxint proc far assume cs:code,ds:nothing,es:nothing cmp ax,0ae00h ;Chk for installed cmd je mux_chkcmd cmp ax,0ae01h ;Chk for installed cmd je mux_execute mux_jmp: jmp cs:[int2fh] ;Jump to old interrupt mux_installed: jmp short mux_jmp ; ; This routine checks the cmd line for a valid Strings command. ; mux_chkcmd: cld push cx push di push si push es lodsb ;Load cmd length mov cl,al xor ch,ch mov di,cs ;ES:DI points to my cmd mov es,di ; line buff mov di,offset strings_name repe cmpsb jne mux_chk1 cmp byte ptr es:[di],0 jne mux_chk1 mov al,-1 ;Claim command mov di,81h ;Copy to my cmd buff mov si,bx ;Point to cmd line inc si mov cl,ds:[si] ;Get length of cmd line inc si ;Load cmd line length inc cx cmp cl,7fh ;Only allow 127 chars ja mux_chk1 rep movsb jmp short mux_chkexit mux_chk1: xor al,al ;Don't want command mux_chkexit: pop es pop si pop di pop cx or al,al ;See if we like cmd je mux_jmp ;No, pass on. jmp short mux_iret ;Yes, return. ; ; This routine executes the command line. ; mux_execute: push ax mov cs:saved_ss,ss mov cs:saved_sp,sp mov ax,cs cli mov ss,ax mov sp,RES_STACK sti push bx push cx push dx push di push si push bp push ds push es mov ax,cs mov ds,ax mov es,ax assume ds:code,es:code mov si,offset 81h ;Remove name of program mov di,si ; from the command xor bl,bl ; line. 1st, find the call scan4char ; name, the move the add si,strings_namelen ; ptr past it. xor cx,cx mux_x1: lodsb stosb inc cx cmp al,13 jne mux_x1 mov ds:[80h],cl call main ;Showtime! cmp remove_flag,0 ;See if we should je mux_xexit ; remove the program call remove jnc mux_xexit call print_strcr ;Print error message mux_xexit: pop es pop ds pop bp pop si pop di pop dx pop cx pop bx cli mov ss,cs:saved_ss mov sp,cs:saved_sp cmp cs:remove_flag,0 ;If remove, discard je mux_xexit1 ; mem segment at the push es ; last moment. push cs pop es ;Get code segment mov ah,49h ;Free mem int 21h pop es mux_xexit1: pop ax mov byte ptr ds:[si],0 ;Tell cmd.com not to ex mux_iret: iret muxint endp ;---------------------------------------------------------------------------- ; Start of code. ;---------------------------------------------------------------------------- main proc near assume cs:code,ds:code,es:code cld ;Set string operations 'up.' call parse_cmdline ;Parse command line jc main_error mov si,dest_var_name ;Point to dest env var name call caps_string mov si,cmd_value ;Point to command buffer call caps_string cmp help_flag,0 ;If help flag set, call je main_1 ; help function to call help_strings ; interpet command. jmp short main_6 main_1: inc cx mov di,offset command_table ;Search cmd table call findstr mov si,offset errmsg1 jc main_error shl bx,1 ;Compute offset of routine to call [bx+offset jump_table] ; call, then call routine jc main_error mov si,dest_var_val cmp console_out,0 ;See how to return result je main_3 cmp byte ptr [si],0 ;If no result, exit je main_6 call print_strcr ;Print result to screen jmp short main_6 main_3: mov di,dest_var_name xchg di,si call setenv ;Set environemnt variable. jc main_7 main_6: xor al,al ;Return code = 0 main_exit: ret ;Return ; ;Display error message. ; main_7: mov si,offset errmsg15 ;Out of environment space main_error: push cs pop ds assume ds:code push si mov si,offset program ;Print copyright msg call print_strcr pop si call print_strcr ;print string main_9: mov al,01 ;Terminate with RC = 1 jmp short main_exit main endp ;============================================================================= ; String Functions ;============================================================================= ;----------------------------------------------------------------------------- ; RIGHT STR returns the right n characters of the source string ;----------------------------------------------------------------------------- right_str proc near assume cs:code,ds:code,es:code mov si,var2_value ;Convert 2nd parameter to hex call asc2hex call truncnum ;Truncate number to string len push ax mov di,var1_value ;Scan to end of string call find_end pop ax right_str_2: sub di,ax dec di cmp di,var1_value ja right_str_3 mov di,var1_value right_str_3: mov si,dest_var_val xchg di,si call copy_string ;Copy string to dest buffer clc ret right_str endp ;----------------------------------------------------------------------------- ; LEFT STR Returns the left n characters of the source string ;----------------------------------------------------------------------------- left_str proc near assume cs:code,ds:code,es:code mov si,var2_value ;Convert 2nd parameter to hex call asc2hex call truncnum ;Truncate number to string len mov si,var1_value mov bx,ax mov byte ptr [si+bx],0 mov di,dest_var_val call copy_string ;Copy string to dest buffer clc ret left_str endp ;----------------------------------------------------------------------------- ; MID STR Returns a string of n characters starting m characters from the ; left of the source string ;----------------------------------------------------------------------------- mid_str proc near assume cs:code,ds:code,es:code mov si,var2_value ;Convert 2nd parameter to hex call asc2hex dec ax call truncnum ;Truncate num mov cx,ax ;Copy second parameter mov si,var3_value ;Convert 3rd param to hex cmp byte ptr [si],0 ;See if no parameter je mid_str_0 call asc2hex ;If no number, return max jnc mid_str_1 ; value to insure remainder mid_str_0: mov ax,VAR_SIZE ; of string returned. mid_str_1: call truncnum ;Truncate num push ax ;Save length of substring xor ax,ax cmp al,1 ;Clear zero flag mov di,var1_value ;Scan to new start of string jcxz mid_str_11 repne scasb mid_str_11: pop cx ;Pop length of substring mov si,di ;Copy ptr to start of substr je mid_str_2 ;If end of str found, end repne scasb ;Scan until end of substring mov byte ptr [di],0 mid_str_2: mov di,dest_var_val call copy_string ;Copy string to dest buffer clc ret mid_str endp ;----------------------------------------------------------------------------- ; LENGTH STR Computes the length of the source string ;----------------------------------------------------------------------------- length_str proc near assume cs:code,ds:code,es:code mov di,var1_value ;Find_end also returns the call find_end ; length of the string in mov ax,cx ; CX. xor dx,dx mov di,dest_var_val ;Convert value to ASCII call hex2asc clc ret length_str endp ;----------------------------------------------------------------------------- ; UPPER STR Convert the source string to upper case ;----------------------------------------------------------------------------- upper_str proc near assume cs:code,ds:code,es:code mov di,dest_var_val mov si,var1_value push di call copy_string ;Copy string to dest buffer pop si call caps_string ;Convert to upper case. clc ret upper_str endp ;----------------------------------------------------------------------------- ; LOWER STR Convert the source string to lower case ;----------------------------------------------------------------------------- lower_str proc near assume cs:code,ds:code,es:code mov di,dest_var_val mov si,var1_value push di call copy_string ;Copy string to dest buffer pop si call lc_string ;Convert to lower case. clc ret lower_str endp ;----------------------------------------------------------------------------- ; CHAR STR Convert the source number to a ASCII character ; Revised in ver 2.0 to handle up to 10 numbers ;----------------------------------------------------------------------------- char_str proc near assume cs:code,ds:code,es:code push bp mov di,dest_var_val ;Get ptr to output buff mov bp,offset var1_value ;Get ptr to var array mov cx,num_params ;Get number of parameters or cx,cx jne charstr_1 mov cx,1 charstr_1: mov si,[bp] ;Get ptr to variable inc bp ;Point BP to next var inc bp call asc2hex ;Convert ASCII num to stosb ; hex num and store. loop charstr_1 xor al,al ;Write number directly to stosb ; dest string. Include clc ; zero for termination. pop bp ret char_str endp ;----------------------------------------------------------------------------- ; VAL STR Convert the source character to its HEX equivalent ; Revised in ver 2.0 to handle more than one character ;----------------------------------------------------------------------------- val_str proc near assume cs:code,ds:code,es:code mov di,dest_var_val ;Get ptr to output buff mov si,var1_value ;Get ptr to char string valstr_1: lodsb ;Get character or al,al je valstr_2 xor ah,ah xor dx,dx call hex2asc ;Convert character to mov byte ptr [di-1],' ' ; ascii num and store. jmp short valstr_1 dec di valstr_2: xor al,al ;Write number directly to stosb ; dest string. Include clc ; zero for termination. ret val_str endp ;----------------------------------------------------------------------------- ; FILEDRIVE STR Return only the directory from a filename string ;----------------------------------------------------------------------------- filedrive_str proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Point string to dest buff call parse_filename mov byte ptr [di+2],0 ;Terminate after drive spec clc ret filedrive_str endp ;----------------------------------------------------------------------------- ; FILEDIR STR Return only the directory from a filename string ;----------------------------------------------------------------------------- filedir_str proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,var2_value ;Use 2nd buff as temp buff call parse_filename mov si,dest_var_val xchg si,di add si,2 ;Skip past drive stuff mov bx,di mov dx,bx inc dx filedir_1: lodsb stosb cmp al,'\' ;Mark start of filename or jne filedir_2 ; directory. mov bx,di filedir_2: or al,al ;See if at end of string je filedir_3 cmp al,'.' ;See if file ext found jne filedir_1 filedir_3: cmp bx,dx ;If root dir, don't delete je filedir_4 ; lone \. dec bx filedir_4: mov byte ptr [bx],0 ;Terminate string at end of clc ; directory ret filedir_str endp ;----------------------------------------------------------------------------- ; FILENAME STR Return only the filename from a filename string ;----------------------------------------------------------------------------- filename_str proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,var2_value ;Use 2nd buff as temp buff call get_filename mov di,dest_var_val ;Pt to dest buff rep movsb xor al,al ;Terminate filename and stosb ; clear error flag ret filename_str endp ;----------------------------------------------------------------------------- ; FILEEXT STR Return only the filename extension from a filename string ;----------------------------------------------------------------------------- fileext_str proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,var2_value ;Use 2nd buff as temp buff call parse_filename mov si,di xor bx,bx fileext_1: lodsb cmp al,'.' ;Mark start of filename or jne fileext_2 ; directory. mov bx,si fileext_2: or al,al jne fileext_1 or bx,bx je fileext_3 mov cx,si sub cx,bx ;Compute length mov di,dest_var_val mov si,bx rep movsb xor al,al ;Terminate string stosb fileext_3: clc ret fileext_str endp ;----------------------------------------------------------------------------- ; FIND STR finds a string within another string. ; Exit: AL - Return code if string not found ; CF - Set if string not found ;----------------------------------------------------------------------------- find_str proc near mov si,var1_value ;To ignore case, capitalize call caps_string ; both strings, then call mov si,var2_value ; the findc function. call caps_string call findc_str ret find_str endp ;----------------------------------------------------------------------------- ; FINDC STR finds a string within another string, respects case. ; Exit: AL - Return code if string not found ; CF - Set if string not found ;----------------------------------------------------------------------------- findc_str proc near mov di,var1_value ;Get ptr to 1st string push di call find_end ;Compute length pop si push cx ;Save length mov di,var2_value mov dx,di call find_end mov bx,cx ;Save length of search string pop cx ;Restore length of trg string sub cx,bx ;Sub length of search string. jb find_str_not_found inc cx find_str_1: push cx mov cx,bx ;Restore search str length mov di,dx ;Restore ptr to search str push si repe cmpsb ;Compare command pop si pop cx je find_str_found inc si ;Inc target string ptr loop find_str_1 find_str_not_found: xor ax,ax ;Set bad return code jmp short find_str_2 find_str_found: mov ax,si ;Copy offset sub ax,var1_value ;Sub starting offset inc ax find_str_2: xor dx,dx mov di,dest_var_val ;Convert value to ASCII call hex2asc clc find_str_exit: ret findc_str endp ;----------------------------------------------------------------------------- ; PARSE STR Returns the nth token in a string ;----------------------------------------------------------------------------- parse_str proc near assume cs:code,ds:code,es:code mov si,var2_value ;Convert 2nd param to hex call asc2hex mov di,100h mov cx,ax ;Save count sub cx,1 jb parse_str_3 mov bx,var3_value mov dl,[bx] ;Get parse char or dl,dl jne parse_str_0 mov dl,' ' parse_str_0: mov si,var1_value ;Get ptr to string or cx,cx ;Check count for 0 je parse_str_2 parse_str_1: mov bl,4 ;Scan for char in DL call scan4char jc parse_str_exit inc si loop parse_str_1 parse_str_2: mov di,si mov bl,4 ;Scan for char in DL call scan4char mov byte ptr [si],0 ;Term string parse_str_3: mov si,dest_var_val ;Get ptr to output buff xchg si,di call copy_string parse_str_exit: clc ret parse_str endp ;----------------------------------------------------------------------------- ; COMMAS STR Returns the nth token in a string ;----------------------------------------------------------------------------- commas_str proc near assume cs:code,ds:code,es:code mov di,var1_value call find_end mov ax,cx mov cl,3 div cl mov cl,ah ;Copy remainder xor ch,ch mov ah,al ;Save quotient mov al,',' mov si,var1_value mov di,dest_var_val ;Get ptr to output buff jcxz commas_1 rep movsb jmp commas_2 commas_1: mov cl,ah jcxz commas_str_exit jmp short commas_4 commas_2: mov cl,ah ;Get number of commas jcxz commas_str_exit commas_3: stosb ;Insert comma commas_4: movsw ;Copy 3 digits movsb loop commas_3 commas_str_exit: xor al,al stosb clc ret commas_str endp ;----------------------------------------------------------------------------- ; REPEAT STR Returns a string with n number of a character ;----------------------------------------------------------------------------- repeat_str proc near assume cs:code,ds:code,es:code mov si,var2_value ;Get character to repeat mov al,[si] push ax mov si,var1_value ;Convert 2nd param to hex call asc2hex mov cx,ax pop ax ;Get back repeat char or dx,dx jne repeat_error ;See if repeat number too cmp cx,VAR_SIZE ; big. jae repeat_error mov di,dest_var_val rep stosb xor al,al stosb clc repeat_exit: ret repeat_error: mov si,offset errmsg14 ;Number too large stc jmp short repeat_exit repeat_str endp ;============================================================================= ; File Functions ;============================================================================= ;----------------------------------------------------------------------------- ; READ REC returns record n from a file. ;----------------------------------------------------------------------------- readrec_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename mov dx,di ;Copy filename pointer xor al,al ;Read only access call open_file jc readrec_error mov si,var2_value ;Convert 2nd param to record call asc2hex ; number. call findrec_file ;Find record. mov ax,si ;Copy end of file flag. mov si,offset errmsg8 ;Record not found. jc readrec_error1 ;Error if record not found. mov si,dest_var_val xchg di,si jcxz readrec_2 readrec_1: lodsb ;Copy record to destination cmp al,13 ; buffer. je readrec_3 stosb loop readrec_1 readrec_2: or ah,ah ;Check end of file flag jne readrec_3 mov dx,databuff_ptr ;If at end of data buffer. mov cx,VAR_SIZE ; read enough to complete call read_file ; record. jc readrec_error mov cx,ax ;Copy number of bytes read. mov di,dx jmp short readrec_1 readrec_3: xor al,al ;Append terminating zero stosb call close_file ;Close file jc readrec_error readrec_exit: ret readrec_error: call parse_doserr jmp short readrec_exit readrec_error1: call close_file stc jmp short readrec_exit readrec_file endp ;----------------------------------------------------------------------------- ; WRITE REC appends a string to the end of a file. ;----------------------------------------------------------------------------- writerec_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename mov dx,di ;Copy filename pointer mov al,2 ;Read/Write Access call open_file ;Open file. If file does not jnc writerec_0 ; exist, create the file. call create_file jc writerec_error mov si,1 jmp short writerec_1 writerec_0: xor ax,ax ;Move file ptr to end of file cwd mov cx,2 ;Move pointer from end. call move_fileptr ;Move file pointer jc writerec_error mov si,1 or dx,dx jne writerec_01 or ax,ax je writerec_1 writerec_01: mov ax,-1 ;Move file ptr to last byte cwd mov cx,2 ;Move pointer from end. call move_fileptr ;Move file pointer jc writerec_error dec si ;Clear EOF marker flag mov dx,dest_var_val ;Read last char to check for mov cx,1 ; EOF marker call read_file jc writerec_error mov di,dx cmp byte ptr [di],1Ah jne writerec_1 mov ax,-1 ;See if last byte 1A EOF mark cwd mov cx,2 ;Move pointer from end. call move_fileptr ;Move file pointer jc writerec_error inc si ;Set EOF marker flag writerec_1: mov di,var2_value ;Get length of string mov dx,di call find_end dec di ;Backup before zero mov ax,0a0dh stosw inc cx inc cx or si,si je writerec_2 mov al,1ah ;Append EOF marker stosb inc cx writerec_2: call write_file jc writerec_error call close_file ;Close file jc writerec_error writerec_exit: mov di,dest_var_val ;Clear dest value. mov byte ptr [di],0 ret writerec_error: call parse_doserr ;Get msg for DOS error jmp short writerec_exit writerec_error1: call close_file stc jmp short writerec_exit writerec_file endp ;----------------------------------------------------------------------------- ; NUMREC FILE returns the number of records in a file. ;----------------------------------------------------------------------------- numrec_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename mov dx,di ;Copy filename pointer xor al,al ;Read only access call open_file jc numrec_error xor ax,ax ;Attempt to find large rec num mov dx,ax call findrec_file ;Find record. jnc numrec_error1 ;Error if record found. not ax ;Compliment line count. No not dx ; need to add 1 since count ; already 1 too many. mov di,dest_var_val ;Convert rec number to ASCII call hex2asc call close_file ;Close file jc numrec_error numrec_exit: ret numrec_error: call parse_doserr ;Get msg for DOS error jmp short numrec_exit numrec_error1: call close_file jc numrec_error stc jmp short numrec_exit numrec_file endp ;----------------------------------------------------------------------------- ; FIND REC returns an offset to the Nth record of a file. ; Entry: DX,AX - Record to find ; BX - Source File handle ; Exit: DX,AX - Records remaing if end of file ; CF - Set if record not found. ; DI - Points to record. ; CX - Number of bytes to end of data buffer ; SI - Points to error message if CF set. ;----------------------------------------------------------------------------- findrec_numl equ word ptr [bp-2] findrec_numh equ word ptr [bp-4] findrec_eof equ byte ptr [bp-5] findrec_file proc near assume cs:code,ds:code,es:code push bp mov bp,sp sub sp,6 mov si,offset errmsg8 ;Record not found mov findrec_eof,0 ;Clear end of file flag. mov findrec_numl,ax ;Save record number. mov findrec_numh,dx findrec_1: mov cx,databuff_ptr xchg cx,dx mov cx,DATABUFF_SIZE ;Get size of data buffer call read_file ;Read data from file. ;2.6 jc findrec_error findrec_1a: cmp ax,cx ;See if buffer filled. If je findrec_2 ; not, end of file. mov findrec_eof,1 ;Set end of file flag. findrec_2: mov cx,ax ;Copy num bytes read. mov di,dx ;Copy buffer ptr mov dx,ax ;Save size of buffer mov al,13 ;Scan for CR findrec_3: sub findrec_numl,1 ;Decriment record count sbb findrec_numh,0 jne findrec_4 ;See if record count = 0 cmp findrec_numl,0 je findrec_5 findrec_4: repne scasb je findrec_7 ;2.6 cmp findrec_eof,1 ;If end of buffer, see if jne findrec_1 ; end of file. Yes = exit stc jmp short findrec_exit findrec_7: push di ;2.6 push cx ;2.6 repne scasb ;2.6 pop cx ;2.6 pop di ;2.6 je findrec_3 ;2.6 cmp findrec_eof,1 ;2.6 je findrec_3 ;2.6 cmp byte ptr [di],0ah ;2.6 jne findrec_8 ;2.6 inc di ;2.6 dec cx ;2.6 findrec_8: push di ;2.6 pop si ;2.6 mov di,databuff_ptr ;2.6 push cx ;2.6 push cx ;2.6 rep movsb ;2.6 pop cx ;2.6 mov dx,di ;2.6 mov ax,DATABUFF_size ;2.6 sub ax,cx ;2.6 mov cx,ax ;2.6 call read_file ;Read data from file. ;2.6 jc findrec_error ;2.6 pop dx ;2.6 add ax,dx ;2.6 mov dx,databuff_ptr ;2.6 jmp short findrec_1a ;2.6 findrec_5: cmp byte ptr [di],0ah ;discard Line feed jne findrec_6 inc di dec cx findrec_6: ; call close_file ;Close file ;2.0 CW ; jc findrec_error ;2.0 CW clc findrec_exit: mov ah,findrec_eof mov al,0 mov si,ax ;Save end of file flag mov ax,findrec_numl ;Get record number. mov dx,findrec_numh mov sp,bp pop bp ret findrec_error: call parse_doserr ;Get msg for DOS error findrec_error1: stc jmp short findrec_exit findrec_file endp ;----------------------------------------------------------------------------- ; FILE SIZE returns the size of a file ;----------------------------------------------------------------------------- filesize_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename mov dx,di ;Copy filename pointer xor al,al ;Read only access call open_file mov di,dest_var_val ;Point DI to result buffer. jc filesize_error xor ax,ax ;Zero offset. xor dx,dx mov cl,2 ;Move pointer from end. call move_fileptr ;Move file pointer jc filesize_error call hex2asc ;Convert size to ASCII call close_file ;Close file jc filesize_error filesize_exit: ret filesize_error: call parse_doserr ;Get msg for DOS error jmp short filesize_exit filesize_file endp ;----------------------------------------------------------------------------- ; TRUENAME FILE returns the fully qualified name of a file. ;----------------------------------------------------------------------------- truename_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename jnc truename_1 mov si,offset errmsg6 ;Illegal filename msg truename_1: ret truename_file endp ;----------------------------------------------------------------------------- ; FILE DATE returns the date of a file ;----------------------------------------------------------------------------- filedate_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename mov dx,di ;Copy filename pointer xor al,al ;Read only access call open_file jc filedate_error mov ax,5700h ;Get file date/time int 21h jc filedate_error push bx ;Save file handle mov ax,dx ;DX: yyyy yyym mmmd dddd shl dx,1 shl dx,1 shl dx,1 mov dl,al ;DH:Months, DL:days and dx,0f1fh ;Clear off unneeded bits shr ah,1 ;Align years mov cx,1980 ;Set starting year add cl,ah ;This fails in year 2048 mov di,dest_var_val call print_date ;Write date pop bx ;Restore file handle call close_file ;Close file jc filedate_error filedate_exit: ret filedate_error: call parse_doserr ;Get msg for DOS error jmp short filedate_exit filedate_file endp ;----------------------------------------------------------------------------- ; FILE TIME returns the time of a file ;----------------------------------------------------------------------------- filetime_file proc near assume cs:code,ds:code,es:code mov si,var1_value ;Fully qualify filename mov di,dest_var_val ;Use dest buff as temp buff call parse_filename mov dx,di ;Copy filename pointer xor al,al ;Read only access call open_file jc filetime_error mov ax,5700h ;Get file date/time int 21h jc filetime_error push bx ;Save file handle mov dh,cl ;CX: hhhh hmmm mmms ssss shl dh,1 ;Mul seconds by 2 and dh,3fh ;Mask off other bits rol cx,1 ;Roll hours to low byte rol cx,1 ; but stop at 3 to rol cx,1 ; copy now aligned mov al,ch ; minute bits. rol cx,1 rol cx,1 mov ch,al ;Get back minutes xchg ch,cl and cx,1f3fh ;Mask off sec bits mov di,dest_var_val call print_time pop bx ;Restore file handle call close_file ;Close file jc filetime_error filetime_exit: ret filetime_error: call parse_doserr ;Get msg for DOS error jmp short filetime_exit filetime_file endp ;----------------------------------------------------------------------------- ; ERRLVL returns the errorlevel of a file ;----------------------------------------------------------------------------- execParmBlock DW 0 ;Use our environment DD 0 ;Command tail DD 0 ;Pointer to first FCB DD 0 ;Pointer to second FCB errlvl_file PROC NEAR ASSUME CS:CODE,DS:CODE,ES:CODE MOV SI,var1_value MOV BL,1 CALL scan4char PUSH SI PUSH SI MOV BYTE PTR [SI],0 CMP BYTE PTR [SI+1],0 JE noCmdLine POP SI POP SI MOV BL,0 CALL scan4char PUSH SI PUSH SI MOV BL,4 MOV DL,0 CALL scan4char noCmdLine: MOV DI,dest_var_val POP DX MOV AX,SI SUB AX,DX XOR CH,CH MOV CL,AL INC AL MOV AH,020H STOSW POP SI REP MOVSB MOV AL,0DH STOSB MOV AX,[local_environment] MOV ES,AX MOV WORD PTR [execParmBlock],ES MOV AX,dest_var_val ;Command tail MOV WORD PTR [execParmBlock+2],AX MOV WORD PTR [execParmBlock+4],DS MOV AX,005CH ;FCB1 is at PSP:005Ch MOV WORD PTR [execParmBlock+6],AX MOV WORD PTR [execParmBlock+8],ES MOV AX,006CH ;FCB2 is at PSP:006Ch MOV WORD PTR [execParmBlock+10],AX MOV WORD PTR [execParmBlock+12],ES PUSH DS ;Point ES:BX to parmblk POP ES MOV BX,OFFSET execParmBlock MOV DX,var1_value ;Point DS:DX to ASCIIZ filespec MOV [saved_ss],SS ;Save our stack pointer MOV [saved_sp],SP MOV AX,4B00H ;Execute child process INT 21H MOV SS,CS:[saved_ss] MOV SP,CS:[saved_sp] JC errlvl_error MOV AH,4DH INT 21H XOR AH,AH XOR DX,DX MOV DI,dest_var_val CALL hex2asc errlvl_exit: CLC RET errlvl_error: CALL parse_doserr STC RET errlvl_file ENDP ;============================================================================= ; System Functions ;============================================================================= ;----------------------------------------------------------------------------- ; VER SYS returns the DOS version number ;----------------------------------------------------------------------------- ver_sys proc near assume cs:code,ds:code,es:code mov ax,dos_version ;Get DOS verison mov di,dest_var_val call printver ;Print version clc ret ver_sys endp ;----------------------------------------------------------------------------- ; ASK SYS prints a string then returns the user response. ;----------------------------------------------------------------------------- ask_sys proc near assume cs:code,ds:code,es:code mov al,quiet_flag ;Save state of quiet flag push ax mov quiet_flag,0 ;Clear quiet flag for this mov si,var1_value ; function. cmp byte ptr [si],0 je ask_1 call print_strcr ;Print prompt string ask_1: mov bx,databuff_ptr mov byte ptr [bx],127 ;Set buffer size mov dx,bx mov ah,0ah ;Buffered keyboard input int 21h mov si,offset endmsg call print_str ;Insert a CR-LF xor cx,cx ;Append zero to string. inc bx mov cl,[bx] inc bx mov si,bx add bx,cx mov byte ptr [bx],0 inc cx mov di,dest_var_val ;Move string to result buff rep movsb xor al,al stosb clc pop ax mov quiet_flag,al ret ask_sys endp ;----------------------------------------------------------------------------- ; ASK2 SYS prints a string then returns the user response. ;----------------------------------------------------------------------------- ask2_sys proc near assume cs:code,ds:code,es:code mov al,quiet_flag ;Save state of quiet flag push ax mov quiet_flag,0 ;Clear quiet flag xor bx,bx ;Clear password flag mov cx,VAR_SIZE - 1 cmp num_params,1 jb ask2_3 je ask2_2 mov si,var3_value ;Chk for password flag call asc2hex cmp ax,2 ja ask2_1 mov bx,ax ;Copy password flag ask2_1: mov si,var2_value ;Get max num of chars call asc2hex mov cx,ax cmp cx,VAR_SIZE - 1 mov si,offset errmsg14 ;Number too large ja ask2_error ask2_2: mov si,var1_value call print_str ;Print prompt string ask2_3: mov di,dest_var_val call read_console mov si,offset endmsg call print_str ;Insert a CR-LF clc ask2_exit: pop ax mov quiet_flag,al ret ask2_error: stc jmp short ask2_exit ask2_sys endp ;----------------------------------------------------------------------------- ; RC SYS returns the return code from the prev process ;----------------------------------------------------------------------------- rc_sys proc near assume cs:code,ds:code,es:code mov ah,4dh ;Get return code int 21h xor ah,ah xor dx,dx mov di,dest_var_val call hex2asc clc ret rc_sys endp ;----------------------------------------------------------------------------- ; ENVFREE SYS returns the number of bytes free in the environment. ;----------------------------------------------------------------------------- envfree_sys proc near assume cs:code,ds:code,es:code push es mov ax,masterenv_seg cmp use_mastenv,0 jne envfree_0 mov ax,localenv_seg envfree_0: push ax dec ax mov es,ax mov dx,es:[3] ;Get size of env segment mov cl,4 ;Convert paragraphs to bytes shl dx,cl pop es mov cx,dx xor ax,ax xor di,di envfree_1: repne scasb ;Loop through the environment cmp byte ptr es:[di],al ; until the end of the loopne envfree_1 ; env strings is found. jcxz envfree_2 mov ax,dx sub ax,di dec ax ;Sub byte for extra zero envfree_2: xor dx,dx pop es mov di,dest_var_val call hex2asc clc envfree_exit: ret envfree_sys endp ;----------------------------------------------------------------------------- ; ENVSIZE SYS returns the size of the environment. ;----------------------------------------------------------------------------- envsize_sys proc near assume cs:code,ds:code,es:code push es mov ax,masterenv_seg cmp use_mastenv,0 jne envsize_1 mov ax,localenv_seg envsize_1: push ax dec ax mov es,ax mov ax,es:[3] ;Get size of env segment mov cl,4 ;Convert paragraphs to bytes shl ax,cl pop es xor dx,dx pop es mov di,dest_var_val call hex2asc clc ret envsize_sys endp ;----------------------------------------------------------------------------- ; MASTERVAR SYS returns the value from a variable in the master environment. ;----------------------------------------------------------------------------- mastervar_sys proc near assume cs:code,ds:code,es:code push ds push es mov ax,masterenv_seg mov di,var1_value ;Point to env var name call getenvvar ;Get ptr to env var value jc mastervar_exit ;CF = 1, var not found. mov di,cs:dest_var_val ;Copy var value to dest string call copy_string clc mastervar_exit: pop ds pop es ret mastervar_sys endp ;----------------------------------------------------------------------------- ; LOCALVAR SYS returns the value from a variable in the local environment. ;----------------------------------------------------------------------------- localvar_sys proc near assume cs:code,ds:code,es:code push ds push es mov ax,localenv_seg mov di,var1_value ;Point to env var name call getenvvar ;Get ptr to env var value jc localvar_exit ;CF = 1, var not found. mov di,cs:dest_var_val ;Copy var value to dest string call copy_string clc localvar_exit: pop ds pop es ret localvar_sys endp ;----------------------------------------------------------------------- ; INWIN SYS returns 1 if Windows currently running. ;----------------------------------------------------------------------- inwin_sys proc near assume cs:code,ds:code,es:code mov ax,1600h ;See if enhanced mode Win int 2fh or al,al jne inwin_1 mov ax,4680h ;See if std or real Win int 2fh or al,al mov al,0 jne inwin_2 inwin_1: mov al,1 ;Indicate Windows active inwin_2: xor ah,ah xor dx,dx mov di,dest_var_val call hex2asc ;Convert result to ASCII clc ret inwin_sys endp ;----------------------------------------------------------------------- ; INT2FCHECK Calls Interupt 2F (Multiplex) to determine if a program is ; loaded. ;----------------------------------------------------------------------- int2fcheck_sys proc near assume cs:code,ds:code,es:code xor ax,ax cmp dos_version,300h ;Don't call 2F if DOS 2.x jb int2fcheck_3 mov si,var1_value ;Point to 1st parameter call caps_string mov di,offset int2fname_tbl ;See if an alias is used in call findstr ; place of a number. jc int2fcheck_1 mov al,[bx+offset int2falias_tbl] jmp short int2fcheck_2 int2fcheck_1: mov si,var1_value ;Convert 1st parameter to hex call asc2hex mov si,offset errmsg14 ;Number too large or dx,dx jne int2fcheck_error ;Make sure the number is or ah,ah ; less than 256 jne int2fcheck_error int2fcheck_2: xor ah,ah xchg ah,al ;Device number in AH 0 in AL cmp ah,13h ;Don't call for device 13 je int2fcheck_3 push si push bp pushf mov saved_sp,sp int 2fh cli mov bx,cs ;Assume nothing after blind mov ds,bx ; Int 2F call. Restore stack mov es,bx ; and other registers. mov ss,bx mov sp,saved_sp sti popf pop bp pop si int2fcheck_3: xor ah,ah xor dx,dx mov di,dest_var_val call hex2asc ;Convert result to ASCII clc int2fcheck_exit: ret int2fcheck_error: stc jmp short int2fcheck_exit int2fcheck_sys endp ;----------------------------------------------------------------------- ; FILES SYS Returns the number of files that can be opened ;----------------------------------------------------------------------- files_sys proc near assume cs:code,ds:code,es:code push es mov ah,52h ;Get list of lists int 21h les bx,es:[bx+4] ;Get ptr to Sys File Table xor ax,ax ;Clear count files_1: mov cx,es ;If ptr -1, no more cmp bx,-1 ; entries. je files_3 files_2: add ax,es:[bx+4] ;Add num of files in tbl les bx,es:[bx] ;Get ptr to next file tbl jmp short files_1 files_3: pop es xor dx,dx mov di,dest_var_val call hex2asc ;Convert result to ASCII clc ret files_sys endp ;----------------------------------------------------------------------- ; LASTDRIVE SYS Returns the last drive letter allowed by system ;----------------------------------------------------------------------- lastdrive_sys proc near push es mov ah,52h ;Get list of lists int 21h mov si,10h ;Assume 2.x offset cmp dos_version,300h jb lastdrive_1 mov si,1bh ;Assume 3.0 offset cmp dos_version,310h jb lastdrive_1 mov si,1bh ;Assume 3.1,2,3 offset cmp dos_version,400h jb lastdrive_1 mov si,21h ;Assume 4.x, 5.x offset lastdrive_1: mov al,es:[bx+si] ;Get lastdrive value add ax,'@' ;Convert to letter pop es mov di,dest_var_val mov ah,':' stosw xor al,al ;Append terminating 0 stosb clc ret lastdrive_sys endp ;------------------------------------------------------------------------ ; TRUEVER SYS returns the real DOS version number. DOS 5 or later ;------------------------------------------------------------------------ truever_sys proc near assume cs:code,ds:code,es:code mov ax,dos_version ;Get std DOS version cmp ax,500h jb truever_1 mov ax,3306h ;Get real DOS version int 21h mov ax,bx xchg al,ah truever_1: mov di,dest_var_val call printver ;Print version clc truever_exit: ret truever_sys endp ;------------------------------------------------------------------------ ; CODEPAGE SYS returns the active code page ;------------------------------------------------------------------------ codepage_sys proc near assume cs:code,ds:code,es:code mov ax,31eh cmp ax,dos_version ;See if DOS 3.3 ja codepage_error mov ax,6601h ;Get global code page int 21h mov ax,bx ;Get code page xor dx,dx mov di,dest_var_val call hex2asc ;Print code page clc codepage_exit: ret codepage_error: call seterr0msg ;Error, not DOS 3.3 jmp short codepage_exit codepage_sys endp ;------------------------------------------------------------------------ ; COUNTRY SYS returns the active code page ;------------------------------------------------------------------------ country_tbl db 0,2,7,9,11,13,15,16,17,22 country_sys proc near assume cs:code,ds:code,es:code mov ax,3800h ;Get country info mov dx,databuff_ptr ;Point to data buffer int 21h xor ah,ah cmp al,-1 jne countrysys_1 mov ax,bx ;Get country code countrysys_1: cmp num_params,0 je countrysys_4 mov si,var1_value call asc2hex mov si,databuff_ptr cmp ax,9 ja countrysys_error countrysys_2: mov cl,al mov bx,offset country_tbl xlat add si,ax mov ax,[si] ;Get word or cl,cl je countrysys_4 xor ah,ah ;Other than 0, byte cmp cl,5 ;1,2,3,4,9 are jbe countrysys_3 ; ASCIIZ strings cmp cl,9 je countrysys_3 jmp short countrysys_4 countrysys_3: mov di,dest_var_val ;Copy string call copy_string jmp short countrysys_exit countrysys_4: xor dx,dx mov di,dest_var_val call hex2asc ;Print code page countrysys_exit: clc countrysys_exit1: ret countrysys_error: stc mov si,offset errmsg14 ;Number too large jmp short countrysys_exit1 country_sys endp ;------------------------------------------------------------------------ ; BIOSDATE SYS returns the date of the ROM BIOS ;------------------------------------------------------------------------ biosdate_sys proc near assume cs:code,ds:code,es:code push ds mov si,0f000h ;ROM segment mov ds,si mov si,0fff5h ;Offset of date mov di,cs:dest_var_val mov cx,4 ;Copy 8 bytes rep movsw pop ds xor al,al ;Add terminating 0 stosb clc ret biosdate_sys endp ;------------------------------------------------------------------------ ; GETKEY SYS Waits for a key and returns the ASCII code and scan code ;------------------------------------------------------------------------ getkey_sys proc near assume cs:code,ds:code,es:code call getkey mov di,dest_var_val push ax xor ah,ah xor dx,dx call hex2asc mov byte ptr [di-1],' ' ;Replace term 0 with space pop ax xor al,al xchg al,ah call hex2asc clc ret getkey_sys endp ;------------------------------------------------------------------------ ; LOCALENV SYS Returns the segment of the local env ;------------------------------------------------------------------------ localenv_sys proc near assume cs:code,ds:code,es:code mov ax,localenv_seg xor dx,dx mov di,dest_var_val call hex2asc clc ret localenv_sys endp ;------------------------------------------------------------------------ ; MASTERENV SYS Returns the segment of the master env ;------------------------------------------------------------------------ masterenv_sys proc near assume cs:code,ds:code,es:code mov ax,masterenv_seg xor dx,dx mov di,dest_var_val call hex2asc clc ret masterenv_sys endp ;======================================================================== ; Number Functions ;======================================================================== ;------------------------------------------------------------------------ ; ADD NUM returns the sum of a series of numbers ;------------------------------------------------------------------------ add_num proc near assume cs:code,ds:code,es:code mov bx,offset addnum_callback call process_nums ;Process vars mov si,offset errmsg12 ;Overflow message ret addnum_callback: add si,ax ;Add number to running adc di,dx ; sum. ret add_num endp ;------------------------------------------------------------------------ ; SUB NUM returns the difference of two numbers ;------------------------------------------------------------------------ sub_num proc near assume cs:code,ds:code,es:code mov bx,offset subnum_callback call process_nums ;Process vars mov si,offset errmsg13 ;Underflow message ret subnum_callback: sub si,ax ;Add number to running sbb di,dx ; sum. ret sub_num endp ;------------------------------------------------------------------------ ; MUL NUM returns the product of two numbers ;------------------------------------------------------------------------ mul_num proc near assume cs:code,ds:code,es:code mov bx,offset mulnum_callback call process_nums ;Process vars mov si,offset errmsg13 ;Overflow message mulnum_exit: ret mul_num_error: stc mov si,offset errmsg10 ;Multiply overflow stc jmp short mulnum_exit mulnum_callback: push bx push cx push dx push bp mov cx,dx ;Copy numbers mov bx,ax mul cx ;32 bit multiply. jc mulcb_exit ;Param 1 in DI,SI mov bp,ax ;Param 2 in CX,BX mov ax,di mul cx ; DI SI or ax,dx ; CX BX jnz mulcb_exit ; --------------------- mov ax,di ; (BX * SI) mul bx ; (BX * DI) jc mulcb_exit ; (CX * SI) add bp,ax ; + (CX * DI) mov ax,si ; --------------------- mul bx ; DX AX add dx,bp mov si,ax mov di,dx mulcb_exit: pop bp pop dx pop cx pop bx ret mul_num endp ;------------------------------------------------------------------------ ; DIV NUM returns the quotient of two numbers ;------------------------------------------------------------------------ div_num proc near assume cs:code,ds:code,es:code call conv2num ;Convert first two parms to jc div_num_exit ; 32 bit numbers. push cx or cx,bx ;Prevent divide by zero pop cx jz div_num_error div_num_1: or cx,cx ;Divide both numbers by 2 je div_num_2 ; until high word of shr dx,1 ; divisor (CX) is zero. rcr ax,1 shr cx,1 rcr bx,1 jmp short div_num_1 div_num_2: push ax ;Save low word mov ax,dx xor dx,dx div bx ;Divide high word mov cx,ax ;Save high quotent pop ax div bx ;Divide low word mov dx,cx mov di,dest_var_val call hex2asc ;Convert result to ASCII div_num_exit: ret div_num_error: mov si,offset errmsg11 stc jmp short div_num_exit div_num endp ;------------------------------------------------------------------------ ; AND NUM returns the logical AND of two numbers ;------------------------------------------------------------------------ and_num proc near assume cs:code,ds:code,es:code mov bx,offset andnum_callback call process_nums ;Process vars mov si,offset errmsg14 ;Number too large ret andnum_callback: and si,ax ;AND number and di,dx ; ret and_num endp ;------------------------------------------------------------------------ ; OR NUM returns the logical OR of two numbers ;------------------------------------------------------------------------ or_num proc near assume cs:code,ds:code,es:code mov bx,offset ornum_callback call process_nums ;Process vars mov si,offset errmsg14 ;Number too large ret ornum_callback: or si,ax ;OR number or di,dx ; ret or_num endp ;------------------------------------------------------------------------ ; XOR NUM returns the logical exclusive OR of two numbers ;------------------------------------------------------------------------ xor_num proc near assume cs:code,ds:code,es:code call conv2num ;Convert first two parms to jc xor_num_exit ; 32 bit numbers. Carry xor ax,bx ; set, overflow. xor dx,cx mov di,dest_var_val call hex2asc ;Convert result to ASCII xor_num_exit: ret xor_num endp ;------------------------------------------------------------------------ ; NOT NUM returns the inverse of a number ;------------------------------------------------------------------------ not_num proc near assume cs:code,ds:code,es:code mov si,var1_value ;Convert 1st parameter to hex call asc2hex mov si,offset errmsg14 ;Number too large jc not_num_exit ;If error, exit not ax not dx mov di,dest_var_val call hex2asc ;Convert result to ASCII not_num_exit: ret not_num endp ;------------------------------------------------------------------------ ; CONVERT NUM converts a number to the base specified by 2nd param ;------------------------------------------------------------------------ convert_num proc near assume cs:code,ds:code,es:code call conv2num ;Convert first two parms or cx,cx jne convertnum_error cmp bx,16 ja convertnum_error cmp bl,1 jbe convertnum_error mov number_base,bx mov di,dest_var_val call hex2asc ;Convert result to ASCII convertnum_exit: ret convertnum_error: mov si,offset errmsg14 ;Number too large stc jmp short convertnum_exit convert_num endp ;------------------------------------------------------------------------ ; GT NUM checks to see if parameter 1 is greater than parameter 2 ;------------------------------------------------------------------------ gt_num PROC NEAR ASSUME CS:CODE,DS:CODE,ES:CODE XOR SI,SI gt_alt: PUSH SI MOV SI,var1_value ;Convert 1st parameter to hex CALL asc2hex MOV BX,AX MOV CX,DX MOV SI,var2_value ;Convert 2nd parameter to hex CALL asc2hex POP SI MOV DI,dest_var_val CMP CX,DX JB gtnum_false JA gtnum_true CMP BX,AX JB gtnum_false JE gtnum_equal gtnum_true: MOV AX,1 JMP SHORT gtnum_exit gtnum_equal: CMP SI,1 JE gtnum_true gtnum_false: XOR AX,AX gtnum_exit: XOR DX,DX CALL hex2asc RET gt_num ENDP ;------------------------------------------------------------------------ ; LT NUM checks to see if parameter 1 is lesser than parameter 2 ;------------------------------------------------------------------------ lt_num PROC NEAR ASSUME CS:CODE,DS:CODE,ES:CODE XOR SI,SI lt_alt: PUSH SI MOV SI,var1_value ;Convert 1st parameter to hex CALL asc2hex MOV BX,AX MOV CX,DX MOV SI,var2_value ;Convert 2nd parameter to hex CALL asc2hex POP SI MOV DI,dest_var_val CMP CX,DX JA ltnum_false JB ltnum_true CMP BX,AX JA ltnum_false JE ltnum_equal ltnum_true: MOV AX,1 JMP SHORT ltnum_exit ltnum_equal: CMP SI,1 JE ltnum_true ltnum_false: XOR AX,AX ltnum_exit: XOR DX,DX CALL hex2asc RET lt_num ENDP ;------------------------------------------------------------------------ ; GE NUM checks to see if parameter 1 is greater than parameter 2 ;------------------------------------------------------------------------ ge_num PROC NEAR ASSUME CS:CODE,DS:CODE,ES:CODE MOV SI,1 JMP SHORT gt_alt ge_num ENDP ;------------------------------------------------------------------------ ; LE NUM checks to see if parameter 1 is greater than parameter 2 ;------------------------------------------------------------------------ le_num PROC NEAR ASSUME CS:CODE,DS:CODE,ES:CODE MOV SI,1 JMP SHORT lt_alt le_num ENDP ;======================================================================== ; Programming Functions ;======================================================================== ;------------------------------------------------------------------------ ; PEEK PROG Returns byte(s) from memory ;------------------------------------------------------------------------ peek_prog proc near assume cs:code,ds:code,es:code push bp call conv2num ;Convert first two parms to jc peek_prog_exit ; 32 bit numbers. mov si,offset errmsg14 or dx,cx ;Check to see that neither jne peek_prog_err1 ; number > 64K mov cx,1 ;Assume 1 byte peek mov bp,0 ;Assume byte size peek mov di,dest_var_val ;Pt to output buff mov si,ax ;Save seg value cmp num_params,3 ;If 3rd param, it is the jb peek_prog_1 ; number of bytes to push ax ; return push bx push si mov si,var3_value call asc2hex mov cx,ax pop si pop bx pop ax cmp num_params,4 ;If 4th param, it signals jb peek_prog_1 ; word size peek mov bp,1 shr cx,1 peek_prog_1: and cx,003fh ;Allow only 64 bytes out jne peek_prog_2 mov cx,1 peek_prog_2: push es mov es,si mov ax,es:[bx] pop es or bp,bp ;If word size, print je peek_prog_3 ; high byte first. push ax xor al,al xchg ah,al xor dx,dx call lead_zero call hex2asc ;Convert result to ASCII inc bx dec di pop ax peek_prog_3: xor ah,ah xor dx,dx call lead_zero call hex2asc ;Convert result to ASCII inc bx mov byte ptr [di-1],' ' ;Replace term 0 with space loop peek_prog_1 mov byte ptr [di-1],0 ;Restore term 0 peek_prog_exit: pop bp ret peek_prog_err1: stc jmp short peek_prog_exit peek_prog endp ;------------------------------------------------------------------------ ; POKE PROG Writes a string of bytes to memory ;------------------------------------------------------------------------ poke_prog proc near assume cs:code,ds:code,es:code call conv2num ;Convert first two parms to jc poke_prog_exit ; 32 bit numbers. mov si,offset errmsg14 ;Number too large or dx,cx ;Check to see that neither jne poke_prog_error ; number > 64K mov si,offset errmsg18 ;Not enough parameters mov cx,num_params sub cx,2 jbe poke_prog_error mov si,offset var3_value push es mov es,ax ;Load segment mov di,bx ;Load offset cli poke_prog_1: push si mov si,[si] ;Get ptr to next var call asc2hex pop si jnc poke_prog_3 poke_prog_2: sti pop es mov si,offset errmsg14 ;Number too large stc jmp poke_prog_exit poke_prog_3: or dx,dx ;Check to see if poke jne poke_prog_2 ; val > 256 or ah,ah jne poke_prog_2 stosb inc si ;Move ptr to next var inc si loop poke_prog_1 pop es mov di,dest_var_val ;Zero return value mov byte ptr [di],0 clc poke_prog_exit: ret poke_prog_error: stc jmp short poke_prog_exit poke_prog endp ;------------------------------------------------------------------------ ; IN PROG Returns a byte from an IO port. ;------------------------------------------------------------------------ in_prog proc near assume cs:code,ds:code,es:code mov si,var1_value ;Convert 1st param to hex call asc2hex mov si,offset errmsg14 ;Number too large jc in_prog_exit ;If error, exit or dx,dx ;Make sure number not too jne in_prog_error ; big. mov dx,ax in al,dx xor ah,ah xor dx,dx mov di,dest_var_val call hex2asc ;Convert result to ASCII in_prog_exit: ret in_prog_error: stc jmp short in_prog_exit in_prog endp ;------------------------------------------------------------------------ ; OUT PROG Outputs a byte to an IO port. ;------------------------------------------------------------------------ out_prog proc near assume cs:code,ds:code,es:code call conv2num ;Convert first two parms to jc out_prog_exit ; 32 bit numbers. mov si,offset errmsg14 ;Number too large or dx,dx ;Check to see that neither jne out_prog_error ; number > 64K or cx,cx jne poke_prog_error or bh,bh jne poke_prog_error mov dl,bl xchg ax,dx out dx,al mov di,dest_var_val ;Zero output mov byte ptr [di],0 out_prog_exit: ret out_prog_error: stc jmp short out_prog_exit out_prog endp ;------------------------------------------------------------------------ ; INTERRUPT PROG Performs an system interrupt ; NOTE: This routine contains self modifying code!!! ;------------------------------------------------------------------------ interrupt_prog proc near assume cs:code,ds:code,es:code push bp mov si,var1_value ;Convert 1st param to hex call asc2hex jnc intprog_0 intprog_error: mov si,offset errmsg14 ;Number too large stc jmp short intprog_error intprog_0: or dl,dh ;Make sure number not too or dl,ah ; big. jne intprog_error mov si,offset intprog_opcode mov [si+1],al ;Set interrupt number mov bp,offset var1_value ;Get ptr to array mov cx,9 intprog_1: inc bp inc bp mov si,[bp] ;Get ptr to next param call asc2hex ;Convert to hex or dx,dx ;Limit test jne intprog_error mov [bp],ax ;Save hex value loop intprog_1 std ;Set direction down! mov si,bp ;copy ptr to array lodsw mov es,ax assume es:nothing lodsw push ax ;Save DS for later lodsw mov bp,ax lodsw push ax ;Save SI for later lodsw mov di,ax lodsw mov dx,ax lodsw mov cx,ax lodsw mov bx,ax lodsw pop si pop ds intprog_2: cld ;For neatness assume ds:nothing mov cs:saved_ssint,ss mov cs:saved_spint,sp intprog_opcode: int 2fh ;Perform interrupt cli mov ss,cs:saved_ssint ;Restore stack mov sp,cs:saved_spint sti pushf cld ;Set dir flag UP push es push di push cs pop es assume es:code mov di,offset var1_value stosw ;Save AX mov ax,bx stosw mov ax,cx stosw mov ax,dx stosw pop ax ;Get returned DI stosw mov ax,si stosw mov ax,bp stosw mov ax,ds stosw pop ax ;Get returned ES stosw pop ax ;Get returned flags stosw push cs ;Reset DS = CS pop ds assume ds:code mov si,offset var1_value mov di,dest_var_val ;Zero output mov cx,10 intprog_3: lodsw ;Get reg value xor dx,dx call hex2asc ;Convert number mov byte ptr [di-1],' ' loop intprog_3 mov byte ptr [di-1],0 ;Restore last 0 clc intprog_exit: pop bp ret interrupt_prog endp ;------------------------------------------------------------------------ ; SCAN PROG Returns byte(s) from memory ;------------------------------------------------------------------------ scan_prog proc near assume cs:code,ds:code,es:code push bp mov bp,offset var3_value ;Get ptr to scan bytes mov di,databuff_ptr ;Use file data buff mov cx,num_params sub cx,2 jbe scan_prog_error mov bx,cx ;Save byte count scan_prog_0: mov si,[bp] ;Get ptr to variable inc bp ;Point BP to next var inc bp call asc2hex ;Convert ASCII num to stosb ; hex num and store. or dx,dx jne scan_prog_err1 or ah,ah jne scan_prog_err1 loop scan_prog_0 xor al,al ;Term string stosb mov bp,bx ;Save scan str length call conv2num ;Convert first two parms to jc scan_prog_exit ; 32 bit numbers. mov si,offset errmsg14 or dx,cx ;Check to see that neither jne scan_prog_err1 ; number > 64K push es mov es,ax ;Get segment mov dx,databuff_ptr ;DX pts to scan string mov cx,bx ;Scan remaining segment neg cx scan_prog_2: push cx mov di,bx ;Get mem offset mov si,dx ;Get scan str offset mov cx,bp ;Get scan str length rep cmpsb pop cx je scan_prog_3 inc bx loop scan_prog_2 pop es mov si,offset errmsg20 ;String not found jmp short scan_prog_error scan_prog_3: pop es xor dx,dx mov di,dest_var_val call hex2asc mov byte ptr [di-1],' ' ;Replace 0 with space mov ax,bx call hex2asc clc scan_prog_exit: pop bp ret scan_prog_err1: mov si,offset errmsg14 ;Number too large scan_prog_error: stc jmp short scan_prog_exit scan_prog endp ;======================================================================== ; Time and Date Functions ;======================================================================== ;------------------------------------------------------------------------ ; DAY TIME Returns the name of the current day ;------------------------------------------------------------------------ day_time proc near assume cs:code,ds:code,es:code cmp num_params,1 jae day_time_1 mov ah,2ah ;Get system day int 21h xor ah,ah jmp short day_time_2 day_time_1: mov si,var1_value ;Convert 1st parameter to hex call asc2hex mov si,offset errmsg14 ;Number too large jc day_time_exit ;If error, exit or dx,dx jne day_time_error or ax,ax je day_time_error cmp ax,7 ja day_time_error dec ax day_time_2: mov bx,ax mov di,offset day_list call get_string mov si,cs:dest_var_val xchg si,di call copy_string clc day_time_exit: ret day_time_error: stc jmp short day_time_exit day_time endp ;------------------------------------------------------------------------ ; MONTH TIME Returns the name of the current month ;------------------------------------------------------------------------ month_time proc near assume cs:code,ds:code,es:code cmp num_params,1 jae month_time_1 mov ah,2ah ;Get system date int 21h mov bl,dh xor bh,bh jmp short month_time_2 month_time_1: mov si,var1_value ;Convert 1st parameter to hex call asc2hex mov si,offset errmsg14 ;Number too large jc month_time_exit ;If error, exit or dx,dx jne month_time_error or ax,ax je month_time_error cmp ax,12 ja month_time_error mov bx,ax month_time_2: dec bx mov di,offset month_list call get_string mov si,cs:dest_var_val xchg si,di call copy_string clc month_time_exit: ret month_time_error: stc jmp short month_time_exit month_time endp ;------------------------------------------------------------------------ ; DOW TIME Returns the day of the week (1=Sunday) ;------------------------------------------------------------------------ dow_time proc near assume cs:code,ds:code,es:code mov ah,2ah ;Get system date int 21h inc al xor ah,ah xor dx,dx mov di,dest_var_val call hex2asc clc ret dow_time endp ;----------------------------------------------------------------------- ; DATE TIME Returns the current date. The date is returned either ; as Month xx, 199x or as mm-dd-yyyy depending on params. ;----------------------------------------------------------------------- date_time proc near assume cs:code,ds:code,es:code xor ax,ax ;Clear style flag cmp num_params,1 jb date_time_1 mov si,var1_value ;Convert 1st parameter to hex call asc2hex jc date_time_error mov si,offset errmsg14 ;Number too large or dx,dx jne date_time_error cmp al,1 ja date_time_error date_time_1: push ax mov ah,2ah ;Get system date int 21h xor ah,ah pop bx ;Get back style param cmp bl,1 je date_time_2 push cx ;Save year push dx ;Save day of the month mov bl,dh ;Copy month dec bx mov di,offset month_list call get_string mov si,dest_var_val xchg si,di call copy_string mov byte ptr [di-1],' ' ;Change term 0 to space pop ax ;Get day xor ah,ah xor dx,dx call hex2asc ;Convert day to ASCII mov word ptr [di-1],' ,' ;Change term 0 to , space inc di pop ax ;Get year xor dx,dx call hex2asc ;Convert year to ASCII jmp short date_time_exit date_time_2: mov di,dest_var_val call print_date ;Print in mm-dd-yyyy fmt date_time_exit: clc date_time_exit1: ret date_time_error: stc jmp short date_time_exit1 date_time endp ;----------------------------------------------------------------------- ; TIME TIME Returns the current time. ;----------------------------------------------------------------------- time_time proc near assume cs:code,ds:code,es:code mov ah,2ch ;Get system date int 21h mov di,dest_var_val call print_time ;Print in hh:mm:ss fmt time_time_exit: clc time_time_exit1: ret time_time_error: stc jmp short time_time_exit1 time_time endp ;======================================================================= ; Memory functions ;======================================================================= ;----------------------------------------------------------------------- ; TOTALMEM MEM Returns the size of the largest blk of free conv mem ;----------------------------------------------------------------------- totalmem_mem proc near assume cs:code,ds:code,es:code int 12h ;Get conv mem size totalmem_2: mov cx,1024 ;Convert Kbytes mul cx ; to bytes mov di,dest_var_val call hex2asc clc ret totalmem_mem endp ;----------------------------------------------------------------------- ; FREEMEM MEM Returns the size of the largest blk of free conv mem ;----------------------------------------------------------------------- freemem_mem proc near assume cs:code,ds:code,es:code cmp installed,0 je freemem_1 mov ah,48h mov bx,-1 ;Ask for all mem int 21h mov ax,bx jmp short freemem_2 freemem_1: mov ax,ds:[2] ;Get end of mem ptr mov bx,cs sub ax,bx freemem_2: mov cx,16 ;Convert paragraphs mul cx ; to bytes mov di,dest_var_val call hex2asc clc ret freemem_mem endp ;----------------------------------------------------------------------- ; FREEEXT MEM Returns the size of extended memory ;----------------------------------------------------------------------- freeext_mem proc near assume cs:code,ds:code,es:code cmp xms_version,0 ;See if mem driver je freeext_1 mov ah,8 call ds:[xms_serv] ;Call driver jmp short freeext_2 freeext_1: mov ah,88h ;Get ext mem size int 15h ; BIOS call jnc freeext_2 xor ax,ax freeext_2: mov cx,1024 ;Convert 1K to bytes mul cx mov di,dest_var_val call hex2asc clc freeext_exit: ret freeext_mem endp ;----------------------------------------------------------------------- ; TOTALEXT MEM Returns the size of extended memory ;----------------------------------------------------------------------- totalext_mem proc near assume cs:code,ds:code,es:code cmp xms_version,0 ;See if mem driver je totalext_1 mov ah,8 call ds:[xms_serv] ;Call driver mov ax,dx jmp short totalext_2 totalext_1: mov ah,88h ;Get ext mem size int 15h ; BIOS call jnc totalext_2 xor ax,ax totalext_2: mov cx,1024 ;Convert 1K to bytes mul cx mov di,dest_var_val call hex2asc clc totalext_exit: ret totalext_mem endp ;----------------------------------------------------------------------- ; EXTVER MEM Returns the version of the extended memory driver ; Check version again, since some driver change version reporting ; depending on the system environment. ;----------------------------------------------------------------------- extver_mem proc near assume cs:code,ds:code,es:code mov ax,xms_version ;See if mem driver or ax,ax je extver_1 xor ax,ax call ds:[xms_serv] ;Get version number mov bx,ax ;Version num returned shr al,1 ; as BCD. Convert shr al,1 ; to std DOS format shr al,1 ; of maj in AH and shr al,1 ; minor in AL mov ah,10 mul ah and bl,0fh add al,bl mov ah,bh extver_1: mov di,dest_var_val call printver clc extver_exit: ret extver_mem endp ;----------------------------------------------------------------------- ; TOTALEMS MEM Returns the size of Expanded memory ;----------------------------------------------------------------------- totalems_mem proc near assume cs:code,ds:code,es:code xor ax,ax or ax,ems_version je totalems_1 mov ah,42h ;Get EMS Mem amounts int 67h ;Call driver mov ax,dx mov cx,16384 ;Convert 16K pages mul cx ; to bytes totalems_1: mov di,dest_var_val call hex2asc clc totalems_exit: ret totalems_mem endp ;----------------------------------------------------------------------- ; FREEEMS MEM Returns the amount of free Expanded memory ;----------------------------------------------------------------------- freeems_mem proc near assume cs:code,ds:code,es:code xor ax,ax or ax,ems_version je freeems_1 mov ah,42h ;Get EMS Mem amounts int 67h ;Call driver mov ax,bx mov cx,16384 ;Convert 16K pages mul cx ; to bytes freeems_1: mov di,dest_var_val call hex2asc clc freeems_exit: ret freeems_mem endp ;----------------------------------------------------------------------- ; EMSVER MEM Returns the version of the extended memory driver ; Check version again, since some driver change version reporting ; depending on the system environment. ;----------------------------------------------------------------------- emsver_mem proc near assume cs:code,ds:code,es:code mov ax,ems_version ;See if mem driver or ax,ax je emsver_1 mov ah,46h ;Get version int 67h or ah,ah je emsver_0 xor ax,ax emsver_0: mov bl,al ;Convert ver number shl ax,1 shl ax,1 shl ax,1 shl ax,1 mov al,bl and ax,0f0fh emsver_1: mov di,dest_var_val call printver clc emsver_exit: ret emsver_mem endp ;----------------------------------------------------------------------- ; FREEUMB MEM Returns the size of the largest free upper memory block ;----------------------------------------------------------------------- freeumb_mem proc near assume cs:code,ds:code,es:code cmp dos_version,500h jae freeumb_0 cmp xms_version,0 mov cx,0 je freeumb_3 mov dx,-1 mov ah,10h ;Request umb from drvr call ds:[xms_serv] mov cx,dx ;Save largest available jmp short freeumb_3 freeumb_0: mov ax,5800h ;Get allocation strat int 21h push ax ;Save strategy mov ax,5802h ;Get UMB link state int 21h push ax ;Save link state mov ax,5803h ;Link UMBs mov bx,1 int 21h jnc freeumb_1 call check4xms ;See for ext mem drvr mov cx,0 jc freeumb_2 mov dx,-1 mov ah,10h ;Request umb from drvr call ds:[xms_serv] mov cx,dx ;Save largest available jmp short freeumb_2 freeumb_1: mov ax,5801h ;Set mem alloc strat mov bx,41h ;Best fit high only int 21h mov ah,48h ;Alloc mem mov bx,-1 int 21h mov cx,bx ;Save largest block freeumb_2: pop bx ;Get UMB link state mov ax,5803h int 21h pop bx ;Get mem alloc strat mov ax,5801h int 21h freeumb_3: mov ax,cx mov cx,16 mul cx mov di,dest_var_val call hex2asc clc freeumb_exit: ret freeumb_error: call seterr0msg ;Error, not DOS 5.0 jmp short freeumb_exit freeumb_mem endp ;======================================================================= ; Program Support Functions ;======================================================================= ;----------------------------------------------------------------------- ; HELP STRINGS Help function for the program ### ;----------------------------------------------------------------------- help_tag1 db "Function: ",0 help_tag2 db " - Returns ",0 help_tag3 db 13,10,"Syntax: STRINGS [dest var =] ",0 help_tag4 db " ",0 help_tag5 db "This is a list of the available commands" help_tag7 db ".",13,10,0 help_tag6 db 13,10,"For help on a specific command type: " db "STRINGS HELP Command",0 help_error db "Command Help not available once installed",0 help_strings proc near assume cs:code,ds:code,es:code push bp mov si,offset program ;Print copyright msg call print_strcr mov si,cmd_value ;Point to command buffer cmp help_flag,0 jne help_1 mov si,var1_value help_1: mov bp,si call caps_string ;Search cmd table for inc cx ; function. If not mov di,offset command_table ; found, print general call findstr ; help message. jc help_3 cmp installed,0 ;If installed, cmd help je help_2 ; not loaded. mov si,offset help_error jmp short help_7 help_2: mov si,offset help_tag1 ;Print lead in. call print_str mov si,bp call print_str ;Print function name mov si,offset help_tag2 ;Print sep call print_str shl bx,1 ;Convert index into shl bx,1 ; offset into help tbl mov si,[bx+offset help_tbl] ;Print description call print_str mov si,offset help_tag7 ;Print usage for fun call print_str mov si,offset help_tag3 ;Print usage for fun call print_str mov si,bp ;Get ptr to command call print_str ;Print function name mov si,offset help_tag4 ;Print sep call print_str mov si,[bx + offset help_tbl + 2] call print_strcr ;Print syntax jmp short help_exit help_3: mov si,offset help_tag5 ;Print global help msg call print_strcr mov si,offset command_table ;Print every cmd in xor bl,bl ; the command table. help_4: mov di,dest_var_val mov cx,6 help_5: push cx call copy_string ;Copy command dec di mov al,' ' ;Print a cmd every neg cx ; 15 columns. Fill add cx,13 ; in the space with rep stosb ; blanks. pop cx mov bl,[si] ;See if end of list or bl,bl je help_6 loop help_5 help_6: xor al,al stosb push si mov si,dest_var_val call print_strcr pop si or bl,bl jne help_4 cmp installed,0 ;If installed, don't tell jne help_exit ; user about cmd help. mov si,offset help_tag6 ;Print global help msg help_7: call print_strcr help_exit: mov di,dest_var_val xor al,al stosb clc pop bp ret help_strings endp ;----------------------------------------------------------------------- ; STRINGSVER Returns the Strings version ;----------------------------------------------------------------------- ver_strings proc near mov si,offset version lodsb mov ah,[si+1] mov di,dest_var_val stosw mov ax,0030h ;Add ASCII 0 and term stosw clc ret ver_strings endp ;----------------------------------------------------------------------- ; STRINGSINST Checks to see if Strings installed as TSR ;----------------------------------------------------------------------- inst_strings proc near xor ax,ax mov dx,ax mov al,installed mov di,dest_var_val call hex2asc clc ret inst_strings endp ;======================================================================= ; Support Procedures ;======================================================================= ;----------------------------------------------------------------------- ;Read Console Gets input from the user ; Entry: CX - Max number of characters to read ; BL - Set to prevent echo of input ; DI - Ptr to output buffer ;----------------------------------------------------------------------- ;readcon_keys dw 27,4b00h,8,32 ;2.0 CW ;READCON_KEYCNT equ 4 ;2.0 CW readcon_keys DW 27,4B00H,8,0 ;2.4 CW READCON_KEYCNT EQU 4 ;2.4 CW ;readcon_jmptbl dw offset readcon_echo ;2.0 CW ; dw offset readcon_bs ;2.0 CW ; dw offset readcon_bs ;2.0 CW ; dw offset readcon_esc ;2.0 CW readcon_jmptbl DW OFFSET readcon_echo ;2.4 CW DW OFFSET readcon_bs ;2.4 CW DW OFFSET readcon_bs ;2.4 CW DW OFFSET readcon_esc ;2.4 CW readcon_scur equ word ptr [bp-2] readcon_sptr equ word ptr [bp-4] readcon_cpos equ word ptr [bp-6] readcon_scnt equ word ptr [bp-8] readcon_pswf equ word ptr [bp-10] read_console proc near push bp mov bp,sp sub sp,10 push cx mov ah,0fh ;Get display mode/page int 10h mov ah,3 ;Get init cursor pos int 10h pop cx mov readcon_scur,dx ;Save init cursor pos mov readcon_cpos,0 ;Position inside str mov readcon_sptr,di ;Ptr to output buff mov readcon_scnt,cx ;Num chars to read mov readcon_pswf,bx ;Password flag readcon_0: call prog_idle ;Indicate idle mov ah,6 mov dl,-1 ;Get keyboard input int 21h jz readcon_0 ;No key, wait xor ah,ah or al,al ;If extended key get jne readcon_1 ; another. mov ah,6 mov dl,-1 ;Get extended key int 21h ; code. xor ah,ah xchg ah,al readcon_1: ; cmp al,13 ;See if CR ;2.0 CW ; je readcon_exit ;2.0 CW ; jcxz readcon_3 ;2.0 CW push cx push di mov di,offset readcon_keys mov cx,READCON_KEYCNT repne scasw mov si,cx pop di pop cx je readcon_2 cmp al,13 ;See if CR ;2.2 CW je readcon_exit ;2.2 CW jcxz readcon_3 ;2.2 CW dec cx stosb ;Write char to buff xor si,si cmp readcon_pswf,0 je readcon_2 mov al,'*' cmp readcon_pswf,1 je readcon_2 mov al,' ' readcon_2: shl si,1 call [si+offset readcon_jmptbl] jmp short readcon_0 readcon_3: mov al,7 call readcon_echo ;Beep the speaker jmp short readcon_0 readcon_exit: xor al,al ;Terminate string stosb clc mov sp,bp pop bp ret ; ; Process backspace ; readcon_bs proc near cmp cx,readcon_scnt ;If at start of buff, je readcon_bsexit ; ignore. dec di ;2.2 CW inc cx ;2.2 CW push ax call readcon_lcur ;Backup cursor mov al,' ' call readcon_echo ;Print space pop ax call readcon_lcur ; dec di ;2.0 CW ; inc cx ;2.0 CW readcon_bsexit: stc ret readcon_bs endp ; ; Process left cursor ; readcon_lcur proc near or cx,cx je readcon_lcurexit mov al,8 ;Backspace char call readcon_echo readcon_lcurexit: stc ret readcon_lcur endp ; ; Process escape ; readcon_esc proc near cmp cx,readcon_scnt je readcon_escexit mov ah,3 ;Get cursor pos int 10h mov cx,readcon_scur ;Get init cur pos sub dl,cl ;Compute difference sub dh,ch push es mov ax,40h mov es,ax mov al,es:[4Ah] pop es mov ah,dh mul ah xor dh,dh add ax,dx push ax mov dx,readcon_scur ;Get initial pos call setcursor pop cx jcxz readcon_esc2 readcon_esc1: mov al,' ' call readcon_echo loop readcon_esc1 readcon_esc2: mov dx,readcon_scur ;Get initial pos call setcursor mov di,readcon_sptr mov cx,readcon_scnt readcon_escexit: ret readcon_esc endp ; ; Echo character in AL to screen. ; readcon_echo proc near cmp al,20h ;2.2 CW jne readcon_echo_start ;2.2 CW jcxz readcon_echo_exit ;2.2 CW readcon_echo_start: ;2.2 CW push ax push dx mov dl,al ;Echo character mov ah,2 int 21h pop dx pop ax readcon_echo_exit: ;2.2 CW ret readcon_echo endp read_console endp ;----------------------------------------------------------------------- ; SETCURSOR Sets the position of the cursor ; Entry: DX - New cursor position ; BH - Video page ;----------------------------------------------------------------------- setcursor proc near mov ah,2 int 10h setcursor endp ;----------------------------------------------------------------------- ; SETERR0MSG Sets the Bad version error message to the ver in AX ; Entry: AX - Required DOS version ; Exit: SI - Pointer to bad DOS ver message ; CF - Set ;----------------------------------------------------------------------- seterr0msg proc near mov di,offset errmsg0ver ;Print version number call printver mov ax,[di-3] ;Insert decimal pt mov byte ptr [di-3],'.' ; so it looks nice mov ah,' ' mov [di-2],ax mov si,offset errmsg0 ;Point to start of msg stc ;Set error flag ret seterr0msg endp ;----------------------------------------------------------------------- ; PRINTVER Prints the version number in AX to buff ; Entry: AX - Version number. AH = Major ver, AL = Minor ver ; DI - Pointer to output buffer ;----------------------------------------------------------------------- printver proc near push ax mov al,100 xchg al,ah ;Copy major ver number mul ah pop bx xor bh,bh add ax,bx xor dx,dx call hex2asc ret printver endp ;----------------------------------------------------------------------- ; PRINT DATE Prints a date in mm-dd-yyyy format ; Entry: DH - Month 1 - 12 ; DL - Day 1 - 31 ; CX - Year ; DI - Ptr to output buffer ;----------------------------------------------------------------------- print_date proc near push cx ;Save year push dx ;Save day of the month mov al,dh ;Copy month xor ah,ah xor dx,dx call lead_zero ;Add leading zero call hex2asc ;Convert month to ASCII mov byte ptr [di-1],'-' ;Change term 0 to - pop ax ;Get day xor ah,ah call lead_zero ;Add leading 0 call hex2asc ;Convert to ASCII mov byte ptr [di-1],'-' ;Change term 0 to - pop ax xor dx,dx call hex2asc ;Convert year to ASCII ret print_date endp ;----------------------------------------------------------------------- ; PRINT TIME Prints the time in hh:mm:ss AM/PM format ; Entry: CH - Hour ; CL - Minutes ; DH - Seconds ; DI - Ptr to output buffer ;----------------------------------------------------------------------- print_time proc near mov bx,"ma" ;Assume AM cmp ch,12 jb print_time_1 sub ch,12 mov bl,'p' print_time_1: push bx ;Save AM/PM flag push dx ;Save seconds push cx ;Save minutes mov al,ch ;Copy hours xor ah,ah xor dx,dx call lead_zero ;Add leading zero call hex2asc ;Convert month to ASCII mov byte ptr [di-1],':' ;Change term 0 to : pop ax ;Get minutes xor ah,ah xor dx,dx call lead_zero ;Add leading 0 call hex2asc ;Convert to ASCII mov byte ptr [di-1],':' ;Change term 0 to : pop ax ;Get seconds mov al,ah xor ah,ah xor dx,dx call lead_zero ;Add leading 0 call hex2asc ;Convert seconds mov byte ptr [di-1],' ' ;Change term 0 to space pop ax ;Get AM/PM tag stosw xor al,al ;Term string stosb clc ret print_time endp ;----------------------------------------------------------------------- ; Lead Zero - Adds a leading zero if number less than 10 ; Entry: DI - Ptr to buffer ; AL - Number to check ;----------------------------------------------------------------------- lead_zero proc near push bx mov bx,number_base cmp al,bl jae lead_zero_exit mov byte ptr es:[di],'0' inc di lead_zero_exit: pop bx ret lead_zero endp ;----------------------------------------------------------------------------- ; GETSTRING Returns a pointer to a string in a list from depending ; on an input index value. ; Entry: ES:DI - Pointer to start of list ; BX - Index into list ; Exit: DI - Pointer to string ; CF - Set if index too big ;----------------------------------------------------------------------------- get_string proc near assume cs:code,ds:code or bx,bx ;CF = 0 je getstring_exit call find_endl dec bx cmp byte ptr es:[di],0 jne get_string stc getstring_exit: ret get_string endp ;----------------------------------------------------------------------- ; PROCESS NUMS Converts each parameter to a number then calls back ; to a routine for specific processing. ; Entry: BX - Ptr to callback procedure ; ; Exit: CF - Set if number too large ; ; Callback: ; Called with: DX AX - Number from parameter ; SI DI - Running sum/product/logical number ; Return: CF - Set if processing should terminate; ;----------------------------------------------------------------------- process_nums proc near push bp mov si,var1_value ;Get ptr to variable call asc2hex mov si,ax ;Init vars mov di,dx mov bp,offset var2_value ;Get ptr to var array mov cx,num_params dec cx jbe procnum_exit procnum_1: push si mov si,[bp] ;Get ptr to variable call asc2hex pop si jc procnum_exit call bx ;Call callback function jc procnum_exit inc bp ;Point BP to next var inc bp loop procnum_1 mov ax,si ;Copy number mov dx,di mov di,dest_var_val call hex2asc ;Convert result to ASCII clc procnum_exit: pop bp ret process_nums endp ;----------------------------------------------------------------------- ; CONV2NUM converts the first two parameters to hex numbers. ; Exit: DX AX - Number from 1st parameter ; CX BX - Number from 2nd parameter ; CF - Set if either number too large ; SI - Set to error message if CF set ;----------------------------------------------------------------------- conv2num proc near mov si,var2_value ;Convert 2nd param to hex call asc2hex jc conv2num_error mov bx,ax ;Copy second parameter mov cx,dx mov si,var1_value ;Convert 1st param to hex call asc2hex jc conv2num_error conv2num_exit: ret conv2num_error: mov si,offset errmsg14 ;Number too large jmp short conv2num_exit conv2num endp ;----------------------------------------------------------------------- ; PARSE CMDLINE Parse the cmd line into seperate strings for each param ; Entry: SI - Pointer to string to parse. ; Exit: CF - Set if error. ; SI - Points to error message if CF set. ;----------------------------------------------------------------------- parse_cmdline proc near xor ax,ax mov num_params,ax ;Init flags with zeros mov quiet_flag,al mov use_mastenv,al mov help_flag,al mov number_base,10 mov console_out,1 mov parse_char,DEF_PARSE_CHAR mov cx,MAX_PARAMS + 2 ;Init ptrs to zero string ;2.4 CW mov di,offset dest_var_name mov ax,offset entry ;Point to zero byte rep stosw mov si,offset command_tail + 1 cmp byte ptr [si-1],0 ;See if cmdline = 0 jne parse_cmdline_1 ;If zero, report error parse_error: cmp help_flag,0 je parse_error1 jmp parse_cmdline_exit parse_error1: mov si,offset errmsg1 ;Syntax error message mov al,install_flag or al,remove_flag je parse_error2 mov si,100h parse_error2: stc jmp parse_cmdline_exit1 parse_cmdline_0: inc si parse_cmdline_1: xor cx,cx xor bx,bx call scan4char ;Find 1st char jc parse_error cmp al,'/' ;See if cmdline switch jne parse_cmdline_2 call parse_switch ;Parse cmd line switch jnc parse_cmdline_1 jmp parse_cmdline_exit1 parse_cmdline_2: mov dest_var_name,si mov cmd_value,si mov bl,3 ;Scan for space or = call scan4char mov byte ptr [si],0 ;Term 1st string jc parse_cmdline_exit cmp al,'=' ;If = found, first word je parse_cmdline_3 ; was dest env var xor bl,bl call scan4char jc parse_cmdline_exit cmp al,'=' jne parse_cmdline_4 parse_cmdline_3: inc si ;Move past = xor bx,bx ;Find next char call scan4char jc parse_error mov cmd_value,si ;Save ptr to cmd mov console_out,0 ;No screen output mov bl,1 call scan4char ;Find end of command mov byte ptr [si],0 ;Term cmd name jc parse_cmdline_exit ;2.4 GS xor bl,bl call scan4char ;Find 1st param jc parse_cmdline_exit parse_cmdline_4: mov bp,offset var1_value mov cx,MAX_PARAMS parse_cmdline_5: mov [bp],si ;Save ptr to param add bp,2 inc num_params mov bl,4 ;Scan until parse char mov dl,parse_char call scan4char mov byte ptr [si],0 ;Term param jc parse_cmdline_exit cmp [si+1],dl jne parse_cmdline_6 inc si inc si jmp short parse_cmdline_7 parse_cmdline_6: xor bl,bl ;Scan until 1st char of call scan4char ; next param parse_cmdline_7: loop parse_cmdline_5 parse_cmdline_exit: clc parse_cmdline_exit1: ret parse_cmdline endp ;----------------------------------------------------------------------- ; PARSE SWITCH Parse command line switches ; Entry: SI - Pointer to / chararacter ; Exit: CF - Set if error ; SI - If error, points to error message string ;----------------------------------------------------------------------- parse_switch proc near assume cs:code,ds:code inc si ;Skip past '/'. lodsb ;Get cmdline switch mov di,offset cmd_switches mov cx,offset cmd_switch_end - offset cmd_switches mov bx,offset cmd_switch_end - offset cmd_switches - 1 or al,20h ;Make switch lower case repne scasb mov dx,offset errmsg3 ;Command not found msg stc jne switch_exit sub bx,cx ;Compute offset into list shl bx,1 ;Convert to word offset clc ;Assume pass call cs:[bx+offset cmd_jmp_tbl] ;Call command routine. switch_exit: ret switch_master: mov use_mastenv,1 ;Set use master env flag ret switch_quiet: mov quiet_flag,1 ;Set to suppress output ret switch_pchar: lodsb mov parse_char,al ;Set new parse character ret switch_base: call asc2hex ;Base at 10 right now dec si or dx,dx ;Check for proper range jne switch_base1 cmp ax,1 jbe switch_base1 cmp ax,16 ja switch_base1 mov number_base,ax ;Set new base clc ret switch_base1: mov si,offset errmsg24 ;Base outside range stc ret switch_help: mov help_flag,1 ;Set help flag ret switch_install: cmp installed,0 je switch_install1 mov si,offset errmsg23 stc jmp short switch_install2 switch_install1: mov install_flag,1 ;Set to install as TSR clc switch_install2: ret switch_remove: cmp installed,0 jne switch_remove1 mov si,offset errmsg21 stc jmp short switch_remove2 switch_remove1: mov remove_flag,1 ;Set to remove as TSR clc switch_remove2: ret parse_switch endp ;----------------------------------------------------------------------- ; GETCOMSPEC returns the name of the command processor from the env ;----------------------------------------------------------------------- getcomspec proc near push ds mov ax,ds:[2ch] ;Get prog environment segment mov di,offset shell_var ;Point to COMSPEC var name call getenvvar ;Get ptr to env var value jc getcomspec_exit ;CF = 1, var not found. mov di,cs:dest_var_val ;Copy var value to dest string push di call copy_string pop si pop ds mov di,databuff_ptr ;Use 2nd buff as temp buff call parse_filename mov si,di mov bx,di getcomspec_1: lodsb cmp al,'\' ;Mark start of filename or jne getcomspec_2 ; directory. mov bx,si getcomspec_2: or al,al je getcomspec_3 cmp al,'.' jne getcomspec_1 dec si getcomspec_3: mov cx,si sub cx,bx ;Compute length cmp cx,8 jb getcomspec_4 mov cx,8 getcomspec_4: mov shell_namlen,cl ;Save length of comspec name mov di,offset shell_name mov si,bx rep movsb getcomspec_exit: xor ax,ax mov di,dest_var_val ;ReZero the buffer. This is mov cx,VAR_SIZE ; what caused the FILENAME rep stosb ; and FILEEXT bugs in 1.1 clc ret getcomspec endp ;----------------------------------------------------------------------------- ; FILENAME STR Return only the filename from a filename string ; Entry: SI - Partial filename ; DI - Working buffer ; Exit: SI - Points to file name ; CX - Length of filename ;----------------------------------------------------------------------------- get_filename proc near assume cs:code,ds:code,es:code call parse_filename mov si,di mov bx,di getfname_1: lodsb cmp al,'\' ;Mark start of filename or jne getfname_2 ; directory. mov bx,si getfname_2: or al,al je getfname_3 cmp al,'.' jne getfname_1 mov byte ptr ds:[si-1],0 ;Terminate getfname_3: dec si mov cx,si sub cx,bx ;Compute length mov si,bx ret get_filename endp ;----------------------------------------------------------------------- ; PARSE FILENAME creates a proper pathname for a filename ; Entry: SI - Pointer to ASCIIZ filename ; DI - Pointer to buffer to hold resulting pathname ;----------------------------------------------------------------------- parse_filename proc near assume cs:code,ds:code,es:code push di push si cmp dos_version,300h ;See if DOS 3.x or greater. jb parse_fname_0 ;If not, parse the old way. mov ah,60h ;DOS Resolve Path int 21h jmp short parse_fname_7 parse_fname_0: cmp byte ptr [si+1],":" ;See if disk specified je parse_fname_1 ;Yes, skip disk assignment mov ah,19h ;Get default disk int 21h inc al mov dl,al ;Save default disk number add al,40h ;Make ASCII mov ah,":" jmp short parse_fname_2 parse_fname_1: lodsw ;Get disk specified and al,0DFh ;Convert to caps mov dl,al sub dl,40h ;Convert to hex parse_fname_2: stosw ;Load disk specification ;Look for directory specification. mov bx,di ;save start of path mov al,"\" cmp byte ptr [si],al ;See if starting from root je parse_fname_3 ;Yes, skip append of path stosb ;Start at root push si ;Save current pointer mov si,di ;Point to dest buffer mov ah,47h ;Get default path int 21h pop si cmp byte ptr [di],0 ;See if NULL path je parse_fname_3 call find_end ;Scan to end of path string dec di ;move back before zero mov al,"\" ;Append path string with stosb ; a \. CX = length of path parse_fname_3: add cx,2 ;Append filename to path. mov ax,VAR_SIZE ;Compute space remaining in sub ax,cx ; the destination buffer. xchg cx,ax xor ah,ah ;Clear last char holder parse_fname_4: lodsb ;Get filename character. If or al,al ; end of string, exit. jz parse_fname_6 ;Else, write char. stosb cmp ax,".." ;If last two chars are .., jne parse_fname_5 ; scan backwards to delete std ; last directory. sub di,4 ;First, backup past '\..' mov al,"\" ;Look for directory sep push cx mov cx,di ;Compute length of path sub cx,bx repne scasb ;Now, past last directory pop cx cld ;Scan forwards again inc di ;Move back past \ parse_fname_5: mov ah,al ;Save last character read. loop parse_fname_4 parse_fname_6: xor al,al ;Terminate string with 0 stosb parse_fname_7: pop si pop di ret parse_filename endp ;----------------------------------------------------------------------------- ; CREATE FILE Creates a new file. ; Entry: DX - Pointer to ASCIIZ filename. ; Exit: BX - File handle ; CF - Set if error ;----------------------------------------------------------------------------- create_file proc near push cx mov ah,3ch ;Create file xor cx,cx ;Normal attributes int 21h mov bx,ax ;Copy file handle pop cx ret create_file endp ;----------------------------------------------------------------------------- ; OPEN FILE Opens a file. ; Entry: AL - Access flags ; DX - Pointer to ASCIIZ filename. ; Exit: BX - File handle ; CF - Set if error ;----------------------------------------------------------------------------- open_file proc near mov ah,3dh ;Open file int 21h mov bx,ax ;Copy file handle ret open_file endp ;----------------------------------------------------------------------------- ; CLOSE FILE Closes a file. ; Entry: BX - File handle ; Exit: CF - Set if error ;----------------------------------------------------------------------------- close_file proc near mov ah,3eh ;Close file int 21h ret close_file endp ;----------------------------------------------------------------------------- ; READ FILE Reads data from a file ; Entry: BX - File handle ; CX - Number of bytes to read ; DX - Pointer to data buffer ; Exit: CF - Set if error ; AX - bytes read. ;----------------------------------------------------------------------------- read_file proc near mov ah,3fh ;Read file data int 21h ret read_file endp ;----------------------------------------------------------------------------- ; WRITE FILE Writes data to a file ; Entry: BX - File handle ; CX - Number of bytes to write ; DX - Pointer to data buffer ; Exit: CF - Set if error ;----------------------------------------------------------------------------- write_file proc near mov ah,40h ;Write file data int 21h ret write_file endp ;----------------------------------------------------------------------------- ; MOVE FILEPTR Moves the file read pointer of a file. ; Entry: AX,DX - Offset of file pointer ; BX - File handle ; CL - Move type, 0 = from start, 2 = from end. ; Exit: CF - Set if error ;----------------------------------------------------------------------------- move_fileptr proc near xchg cx,dx ;Copy most sig word xchg dx,ax ;Copy least sig word mov ah,42h ;Move file pointer int 21h ret move_fileptr endp ;----------------------------------------------------------------------------- ; PARSE DOSERR Points SI to the proper DOS error string ; Entry: AL - DOS error number ; Exit: SI - Pointer to ASCIIZ string ;----------------------------------------------------------------------------- parse_doserr proc near xor ah,ah cmp al,34 jbe parse_doserr_1 xor al,al parse_doserr_1: shl ax,1 mov si,offset doserr_tbl add si,ax mov si,[si] stc ;Set error flag ret parse_doserr endp ;----------------------------------------------------------------------------- ; TRUNCNUM truncates a number to the max length of a string ; Entry: AX - Number to truncate ; Exit: AX - Truncated number ;----------------------------------------------------------------------------- truncnum proc near cmp ax,VAR_SIZE ;VAR_SIZE = max string length jb trunc_1 mov ax,VAR_SIZE trunc_1: ret truncnum endp ;----------------------------------------------------------------------------- ; FINDSTR determines if a string is in a list. ; Entry: DS:SI - Pointer to ASCII string to find. ; ES:DI - Pointer to list of ASCIIZ strings. ; CX - Size of string ; Exit: DI - Pointer to entry in list ; CF - Clear if string found ; BX - If CF clear, index into list ;----------------------------------------------------------------------------- findstr proc near push cx push dx xor dx,dx or dx,cx ;Save length of string je finds_3 xor bx,bx ;Zero index counter finds_1: push di push si push cx repe cmpsb ;Compare command pop cx pop si pop di clc je findstr_exit inc bx ;Inc string count push cx call find_endl ;Find end of string. pop cx jne finds_3 cmp byte ptr es:[di],0 ;See if second zero. If so jne finds_1 ; end of list. finds_3: stc ;Indicate string not found findstr_exit: pop dx pop cx ret findstr endp ;----------------------------------------------------------------------------- ; FIND END scans to the end of an ASCIIZ string. ; Entry: ES:DI - Pointer to ASCII string ; Exit: ES:DI - Pointers to character after string. ; CX - Length of string ; ZF - Clear if end not found in MAX length of characters ;----------------------------------------------------------------------------- find_end proc near push ax mov cx,VAR_SIZE xor al,al repne scasb pushf mov ax,VAR_SIZE sub ax,cx xchg ax,cx dec cx popf pop ax ret find_end endp ;----------------------------------------------------------------------------- ; FIND ENDL scans to the end of an ASCIIZ string. String can be up to 32K ; Entry: ES:DI - Pointer to ASCII string ; Exit: ES:DI - Pointers to character after string. ; CX - Length of string ; ZF - Clear if end not found in MAX length of characters ;----------------------------------------------------------------------------- find_endl proc near push ax mov cx,8000h xor al,al repne scasb pushf mov ax,8000h sub ax,cx xchg ax,cx dec cx popf pop ax ret find_endl endp ;----------------------------------------------------------------------------- ; CAPS STRING capitalizes ASCIIZ string ; Entry: SI - Pointer to ASCII string to capitalize ; Exit: CX - Length of string ;----------------------------------------------------------------------------- caps_string proc near assume ds:code,es:code push bx push dx mov bx,"za" ;Set filter limits mov dx,0df00h ;Set character filter call filter_string pop dx pop bx ret caps_string endp ;----------------------------------------------------------------------------- ; LC STRING makes an ASCIIZ string lower case ; Entry: SI - Pointer to ASCII ; Exit: CX - Length of string ;----------------------------------------------------------------------------- lc_string proc near assume ds:code,es:code push bx push dx mov bx,"ZA" ;Set filter limits mov dx,0ff20h ;Set character filter call filter_string pop dx pop bx ret lc_string endp ;----------------------------------------------------------------------------- ; FILTER STRING filters an ASCIIZ string ; Entry: DS:SI - Pointer to ASCII string ; BL - Lower limit of char range ; BH - Upper limit of char range ; DL - OR filter ; DH - AND filter ; Exit: CX - Length of string ;----------------------------------------------------------------------------- filter_string proc near assume ds:code,es:code push si push di push es mov di,si push ds pop es xor cx,cx ;Clear byte counter. filter_1: lodsb ;Get character or al,al ;Allow any non-space character je filter_exit cmp al,bl ;If between lower and upper jb filter_2 ; char limit it. cmp al,bh ja filter_2 or al,dl ;Apply OR filter and al,dh ;Apply AND filter filter_2: stosb ;Save character inc cx ;Inc byte counter jmp short filter_1 filter_exit: pop es pop di pop si ret filter_string endp ;----------------------------------------------------------------------------- ; COPY STRING copies an ASCIIZ string ; Entry: DS:SI - Pointer to source ASCIIZ string ; ES:DI - Pointer to destination buffer ; Exit: CX - Length of string ;----------------------------------------------------------------------------- copy_string proc near assume ds:code,es:code xor cx,cx copy_string_1: lodsb ;Move character stosb or al,al ;See if end of string je copy_string_exit ;If so, exit inc cx ;Inc count jmp short copy_string_1 copy_string_exit: ret copy_string endp ;----------------------------------------------------------------------------- ; PRINT STRCR prints an ASCIIZ string then appends a CR LF to the end ; Entry: SI - pointer to ASCIIZ string. ;----------------------------------------------------------------------------- print_strcr proc near assume ds:nothing,es:nothing call print_str mov si,offset endmsg call print_str ret print_strcr endp ;----------------------------------------------------------------------------- ; PRINT STR prints an ASCIIZ string to the std output device ; Entry: SI - Pointer to ASCIIZ string. ;----------------------------------------------------------------------------- print_str proc near cmp cs:quiet_flag,0 jne print_str_exit lodsb ;Get character or al,al ;See if end of string je print_str_exit mov ah,2 ;DOS print character mov dl,al int 21h ;Call DOS jmp short print_str print_str_exit: ret print_str endp ;----------------------------------------------------------------------------- ; HEX2ASC converts number in DX AX to ASCII ; Entry: DX AX - Number ; DI - Destination buffer ; CF - Clear ; Exit: Di - Points to byte past terminating 0 ;----------------------------------------------------------------------------- hex2asc proc near assume ds:nothing,es:nothing push ax push bx push cx push dx push si mov si,cs:number_base ;Load number base mov bx,ax mov cx,dx mov dx,-1 ;Load end of number flag push dx hex_loop1: xchg ax,cx ;Get high word in AX xor dx,dx ;Clear high word div si ;Divide by base (10) xchg cx,ax ;Save result of high divide xchg ax,bx ;Get low word, leave remainder div si ; in DX. xchg bx,ax ;Save result of low divide add dl,30h ;Convert to ascii cmp dl,'9' jbe hex_1 add dl,7 hex_1: push dx ;Save digit on stack or bx,bx jne hex_loop1 ;See if number = 0. If not, or cx,cx ; continue divide loop. jne hex_loop1 mov bl,"0" ;Set leading zero flag hex_loop2: pop dx ;Get digit off stack cmp dx,-1 ;See if end flag je hex_2 or bl,dl ;Don't print leading zeros. cmp bl,"0" ;The first non zero will je hex_loop2 ; change bl to non-zero. mov al,dl ;Write to buffer stosb jmp short hex_loop2 hex_2: cmp bl,"0" ;If number zero, write last jne hex_exit ; zero. mov al,bl stosb hex_exit: xor al,al ;Termainate with zero stosb pop si pop dx pop cx pop bx pop ax ret hex2asc endp ;------------------------------------------------------------------------ ; ASC2HEX converts an ASCII number to hex ; Entry: SI - Pointer to ASCIIZ string ; Exit: DX,AX - Number ; CF - Set if overflow ;------------------------------------------------------------------------ asc2hex proc near assume ds:nothing,es:nothing push bx push cx push di xor cx,cx ;Zero result xor di,di xor bx,bx ;Keep BH clear asc_loop1: mov bl,[si] ;Get next digit inc si cmp bl,"9" jbe asc_1 and bl,0dfh ;Make upper case sub bl,7 asc_1: sub bl,"0" ;Convert digit from ASCII to jb asc_exit ; hex. If digit illegal cmp bx,cs:number_base ; char, exit. jae asc_exit asc_2: xchg ax,di ;Shift result in DI CX by mul cs:number_base ; the base. jc asc_exit1 xchg di,ax xchg ax,cx mul cs:number_base xchg cx,ax add di,dx jc asc_exit1 add cx,bx ;Add new number to result. adc di,0 jnc short asc_loop1 asc_exit1: mov ax,cx ;Copy result mov dx,di pop di pop cx pop bx ret asc_exit: clc jmp short asc_exit1 asc2hex endp ;----------------------------------------------------------------------- ; SCAN4CHAR scans a string to find the first character. ; Entry: SI - pointer to ASCII string ; BL - 0 = find next char, ; 1 = find next space, ; 2 = find end of line, ; 3 = find next space or =. ; 4 = find character in DL. ; Exit: AL - matching character ; SI - pointer to matching character ; CF - set if carriage return or EOF found ;----------------------------------------------------------------------- scan4char proc near assume ds:nothing,es:nothing scan4loop: lodsb cmp al,13 ;Check for CR jne scan4_1 scan4_eol: stc jmp short scan4_exit1 scan4_1: cmp bl,4 je scan4_dl cmp bl,3 je scan4_equal cmp bl,1 ;Check if searching for je scan4_space ; space, char, or EOL. ja scan4loop cmp al," " ;Check for space or other jbe scan4loop ; 'white' characters. jmp short scan4_exit scan4_dl: cmp al,dl ;Check for parse character je scan4_exit or al,al je scan4_eol jmp short scan4loop scan4_equal: cmp al,"=" ;Check for exit je scan4_exit scan4_space: cmp al," " ;Check for characters. ja scan4loop scan4_exit: clc scan4_exit1: dec si ;Back up before char ret scan4char endp ;----------------------------------------------------------------------- ; GETKEY Waits for a keypress and returns the key. ;----------------------------------------------------------------------- getkey proc near call prog_idle ;yield mov ah,1 ;Check key status int 16h jz getkey ;No key, loop cld ;Reset dir flag due to yield mov ah,2 ;Get shift status int 16h push ax mov ax,12ffh ;Get extended shift status int 16h pop bx cmp bl,al ;See if same jne getkey_1 ;No, assume old keyboard mov ah,11h ;Get extended key status xor al,al ;Clear zero flag int 16h jz getkey_1 mov ax,1000h ;Extended keyboard read int 16h jmp short getkey_2 getkey_1: xor ax,ax ;Get key from buffer int 16h getkey_2: ret getkey endp ;----------------------------------------------------------------------- ;PROG IDLE Indicates to the system that we are idle ;----------------------------------------------------------------------- prog_idle proc near push ax int 28h ;Call Idle interrupt cmp dos_version,300h jb prog_idleexit mov ax,1680h ;Mux DOS idle int 2fh prog_idleexit: pop ax ret prog_idle endp ;----------------------------------------------------------------------- ; GETENVVAR returns a pointer to the value of an environment variable. ; Entry: AX - Segment of environment ; DS:DI - Pointer to ASCIIZ string containing the name of env var. ; Exit: DS:SI - If CF = 0, Pointer to value of environment variable ; DI - If CF = 0, Pointer to start of var name in environment ; CF - Set if variable not found ;----------------------------------------------------------------------- getenvvar proc near push ax push es push ax ;Save env segment push di ;Append = sign to the end of call find_end ; the variable. mov word ptr es:[di-1],003dh pop si call caps_string pop es ;Use find string routine to xor di,di ; find the variable name. call findstr jnc getenvvar_1 stc jmp short getenvvar_exit getenvvar_1: push es ;DS:SI = ES:DI pop ds xchg si,di getenvvar_2: lodsb ;Find end of var name. cmp al,'=' jne getenvvar_2 clc getenvvar_exit: pop es pop ax ret getenvvar endp ;----------------------------------------------------------------------------- ; SETENV Sets environment variables. ; ; Entry: DS:SI - pointer to env var name ; ES:DI - pointer to env var value ;----------------------------------------------------------------------------- setenv proc near push bp push ds push es push di ;Save ptr to var value push es call find_end ;Get length of var value mov dx,cx ;Copy length mov di,si push ds ;Add length of var name plus pop es ; room for the equals sign. call find_end mov word ptr es:[di-1],003dh ;Append = sign inc cx ;Add byte for = add dx,cx inc dx ;Add byte for terminating 0 mov ax,masterenv_seg cmp use_mastenv,0 jne setenv_0 mov ax,localenv_seg setenv_0: push ax dec ax mov es,ax mov bp,es:[3] ;Get size of env segment push cx mov cl,4 ;Convert paragraphs to bytes shl bp,cl pop cx pop es xor di,di ;Use find string routine to call findstr ; find the variable name. push si push ds jc setenv_2 ;Var not found, skip erase push es pop ds mov si,di ;Erase current var value by call find_endl ; copying the next env var xchg si,di ; over the current one. setenv_1: cmp byte ptr [si],0 je setenv_2 setenv_11: lodsb stosb or al,al jne setenv_11 jmp short setenv_1 setenv_2: pop ax ;Get ptr to var name pop cx pop ds ;Get ptr to var value pop si cmp byte ptr ds:[si],0 ;See if NULL variable, If so, je setenv_31 ; don't add to env block mov bx,di ;Get offset of end of env add bx,dx ;Add length of value inc bx ;Add length of terminating byte cmp bp,bx ja setenv_3 push ax ;Save ptr to var name push cx mov dx,es dec dx mov es,dx push es:[1] ;Save current owner segment inc dx mov es,dx add bx,15 ;If no room in environemnt, mov cl,4 ; see if env segment can be shr bx,cl ; resized to make room for mov ah,4ah ; new variable. int 21h ;Reallocate memory pop bx ;Get old owner pop cx pop ax jc setenv_5 push es dec dx mov es,dx mov es:[1],bx ;Restore old owner pop es setenv_3: push si push ds mov si,cx mov ds,ax call copy_string ;Copy var name to env dec di ;Back up over last zero pop ds pop si mov bl,"=" ;Since env vars can't have mov bh,bl ; the char '=', filter mov dl,-1 ; string to change = to mov dh,equalsub_char ; graphic char that looks call filter_string ; similar. call copy_string ;Copy var value to env setenv_31: xor al,al stosb ;Add 2 zeros to end env. setenv_4: clc ;Set pass flag setenv_5: pop es pop ds pop bp ret setenv endp ;----------------------------------------------------------------------------- ; REMOVE uninstalls the installed program from memory. ;----------------------------------------------------------------------------- remove proc near assume cs:code,ds:code,es:code push es mov ax,352fh ;Get MUX vector int 21h mov cx,cs ;Get CS mov ax,es ;Check to make sure MUX cmp ax,cx ; vector not modified. jne remove_error push ds mov ax,252fh ;Set interrupt lds dx,[int2fh] ;Get old int 2F vector int 21h pop ds mov es,ds:[2ch] ;Get env segment mov ah,49h ;Free mem int 21h mov si,offset infomsg2 ;Removed message call print_strcr remove_exit: pop es ret remove_error: mov remove_flag,0 mov si,offset errmsg22 ;Can't remove error msg stc jmp short remove_exit remove endp even end_of_resident = $ ;======================================================================= ;Start of nonresident data ;======================================================================= ;----------------------------------------------------------------------- ; FINAL INSTALL Last part of install process. Must be less that ; the resident stack size. (512 bytes) ;----------------------------------------------------------------------- final_install proc near mov sp,di ;Set stack to res stack rep stosb ;Clear buffer mov databuff_ptr,di add di,DATABUFF_SIZE+15 mov cl,4 shr di,cl mov dx,di mov ax,3100h ;TSR int 21h mov ax,4c01h ;This should never happen int 21h final_install endp ;----------------------------------------------------------------------- ; Lookup table for help messages. Each command has two help strings. ; 1. The descripion of the function. The word 'Returns' is ; automatically added to the start of the string. ; 2. A syntax message that describes the arguements for the function. ; ; This table MUST be in the same order as the command table at the ; start of the program. ;----------------------------------------------------------------------- help_tbl dw offset left_help dw offset left_syntax dw offset right_help dw offset left_syntax dw offset mid_help dw offset mid_syntax dw offset length_help dw offset length_syntax dw offset find_help dw offset find_syntax dw offset findc_help dw offset findc_syntax dw offset lower_help dw offset length_syntax dw offset upper_help dw offset length_syntax dw offset char_help dw offset char_syntax dw offset val_help dw offset add_syntax dw offset filedrive_help dw offset filename_syntax dw offset filedir_help dw offset filename_syntax dw offset filename_help dw offset filename_syntax dw offset fileext_help dw offset filename_syntax dw offset parse_help dw offset parse_syntax dw offset commas_help dw offset not_syntax dw offset repeat_help dw offset repeat_syntax dw offset read_help dw offset read_syntax dw offset write_help dw offset write_syntax dw offset filesize_help dw offset filename_syntax dw offset linesize_help dw offset filename_syntax dw offset truename_help dw offset filename_syntax dw offset filedate_help dw offset filename_syntax dw offset filetime_help dw offset filename_syntax DW OFFSET errlvl_help ;2.3 CW DW OFFSET errlvl_syntax ;2.3 CW dw offset ver_help dw offset no_syntax dw offset ask_help dw offset ask_syntax dw offset inwin_help dw offset no_syntax dw offset twoFcheck_help dw offset twoFcheck_syntax dw offset envfree_help dw offset no_syntax dw offset envsize_help dw offset no_syntax dw offset mastervar_help dw offset mastervar_syntax dw offset localvar_help dw offset mastervar_syntax dw offset truever_help dw offset no_syntax dw offset files_help dw offset no_syntax dw offset lastdrive_help dw offset no_syntax dw offset codepage_help dw offset no_syntax dw offset country_help dw offset no_syntax dw offset biosdate_help dw offset no_syntax dw offset getkey_help dw offset no_syntax dw offset locenv_help dw offset no_syntax dw offset masenv_help dw offset no_syntax dw offset add_help dw offset add_syntax dw offset sub_help dw offset add_syntax dw offset mul_help dw offset add_syntax dw offset div_help dw offset div_syntax dw offset and_help dw offset add_syntax dw offset or_help dw offset add_syntax dw offset xor_help dw offset div_syntax dw offset not_help dw offset not_syntax dw offset convert_help dw offset convert_syntax DW OFFSET gt_help ;2.5 CW DW OFFSET gtlt_syntax ;2.5 CW DW OFFSET ge_help ;2.5 CW DW OFFSET gtlt_syntax ;2.5 CW DW OFFSET lt_help ;2.5 CW DW OFFSET gtlt_syntax ;2.5 CW DW OFFSET le_help ;2.5 CW DW OFFSET gtlt_syntax ;2.5 CW dw offset peek_help dw offset peek_syntax dw offset poke_help dw offset poke_syntax dw offset in_help dw offset in_syntax dw offset out_help dw offset out_syntax dw offset interrupt_help dw offset interrupt_syntax dw offset scan_help dw offset scan_syntax dw offset day_help dw offset day_syntax dw offset month_help dw offset month_syntax dw offset date_help dw offset date_syntax dw offset time_help dw offset no_syntax DW OFFSET dow_help ;2.3 CW DW OFFSET no_syntax ;2.3 CW dw offset totalmem_help dw offset no_syntax dw offset freemem_help dw offset no_syntax dw offset totalxms_help dw offset no_syntax dw offset freexms_help dw offset no_syntax dw offset xmsver_help dw offset no_syntax dw offset totalems_help dw offset no_syntax dw offset freeems_help dw offset no_syntax dw offset emsver_help dw offset no_syntax dw offset freeumb_help dw offset no_syntax dw offset strver_help dw offset no_syntax dw offset strinst_help dw offset no_syntax dw offset help_help dw offset help_syntax ;----------------------------------------------------------------------- ;Help text ;----------------------------------------------------------------------- left_help db "left n characters",0 left_syntax db "String, Number of chars",0 right_help db "right n characters",0 mid_help db "middle n chars",0 mid_syntax db "String, Start char, Length",0 length_help db "String length",0 length_syntax db "String",0 find_help db "the position of Findstring in String",0 find_syntax db "String, Findstring",0 findc_help db "the position of Findstring in String. Case sen",0 findc_syntax db "String, Findstring",0 lower_help db "string all lowercase",0 upper_help db "string all uppercase",0 char_help db "ASCII number of character",0 char_syntax db "Char[Char][char][char][char][char][char][char]",0 val_help db "ASCII char for a number",0 filedrive_help db "the drive of a filename",0 filedir_help db "the directory of a filename",0 filename_help db "the file name",0 filename_syntax db "Filename",0 fileext_help db "the file extension",0 parse_help db "the Nth token from a string",0 parse_syntax db "String, Token number, Token seperator char",0 commas_help db "a number parsed with commas every 3 digits",0 repeat_help db "a string of n number of characters",0 repeat_syntax db "Number of chars, Char to repeat",0 read_help db "a line from a file",0 read_syntax db "Filename, line number",0 write_help db "nothing. Appends a string to the end of a file",0 write_syntax db "Filename, String",0 filesize_help db "the size of a file",0 linesize_help db "the number of lines",0 truename_help db "the complete filename",0 filedate_help db "the date of a file",0 filetime_help db "the time of a file",0 ask_help db "a response from a user",0 ask_syntax db "[Prompt string][, Max chars][, 1=* echo 2=No echo]",0 ver_help db "the DOS version number",0 inwin_help db "1 if Windows running",0 twoFcheck_help db "status of programs hooked to the Multiplex int",0 envfree_help db "the bytes free in the environment",0 envsize_help db "the size of the environment",0 mastervar_help db "a variable from the Master env ",0 mastervar_syntax db "Variable Name",0 localvar_help db "a variable from the Local env ",0 truever_help db "the true DOS verison. Requires DOS 5.0 or later",0 files_help db "the total number of files that can be open",0 lastdrive_help db "the letter of the last possible drive",0 ask2_help db "a response from the user",0 ask2_syntax db "[Prompt [,max number of chars [,no echo flag]]",0 codepage_help db "the active code page. Requires DOS 3.3 or later",0 country_help db "the country code for the system",0 biosdate_help db "the date for the ROM BIOS",0 getkey_help db "the scan code and ASCII value of the next" db " key pressed",0 locenv_help db "the segment of the active environment",0 masenv_help db "the segment of the master environment",0 add_help db "the sum of the parameters",0 add_syntax db "Num1, Num2 [,Num3][,Num4][,Num5][,Num6]" db 13,10,9,9,9,9," [,Num7][,Num8][,Num9][,Num10]",0 sub_help db "the difference of two numbers",0 mul_help db "the product of the parameters",0 div_help db "the quotient of two numbers",0 div_syntax db "Number, Number",0 and_help db "the logical AND of the parameters",0 or_help db "the logical OR of the parameters",0 xor_help db "the exclusive OR of two numbers",0 not_help db "the logical NOT of a number",0 not_syntax db "Number",0 convert_help db "a number with the base specified",0 convert_syntax db "Number, New Base",0 peek_help db "a series of bytes from memory",0 peek_syntax db "Segment, Offset [, Number of bytes [,Word flag]]",0 poke_help db "nothing. Writes up to 8 bytes to memory",0 poke_syntax db "Segment, Offset , Byte1[,Byte2][,Byte3][,Byte4]" db "[,Byte5][,Byte6][,Byte7][,Byte8]",0 in_help db "a byte from an I/O port",0 in_syntax db "Port number",0 out_help db "nothing. Writes a byte to an I/O port",0 out_syntax db "Port number, Output byte",0 interrupt_help db "registers from an interrupt. Dangerous!",0 interrupt_syntax db "Interrupt number, AX, BX, CX, DX,",13,10 db 9,9,9,9,9," DI, SI, BP, DS, ES",0 scan_help db "the offset of a series of bytes in memory",0 scan_syntax db "Segment to search, Starting Offset,",13,10 db 9,9,9,9," Byte1 [,Byte2] [,Byte3] [Byte4]",13,10 db 9,9,9,9," [,Byte5] [,Byte6] [,Byte7] [,Byte8]",0 day_help db "the name of the current day of the week,",13,10 db " or corresponding to the index value",0 day_syntax db "[Index (1=Sunday, 2=Monday 3=Tuesday...]",0 month_help db "the name of the current month or the month",13,10 db "corresponding to the index value",0 month_syntax db "[Index (1=January, 2=February...]",0 date_help db "the current date",0 date_syntax db "[If present, date returned in mm-dd-yyyy format]",0 time_help db "the current time",0 totalmem_help db "the amount of conventional memory",0 freemem_help db "the largest block of free conventional memory",0 totalxms_help db "the amount of extended memory",0 freexms_help db "the amount of free extended memory",0 xmsver_help db "the version of the extended memory driver",0 totalems_help db "the amount of expanded memory",0 freeems_help db "the amount of free expanded memory",0 emsver_help db "the version of the expanded memory driver",0 freeumb_help db "the largest block of free Upper Memory",0 strver_help db "the version of Strings",0 strinst_help db "a non-zero number if Strings installed as TSR",0 help_help db "help text for the specified Strings command",0 help_syntax db "[Strings Command]" no_syntax db 0 twoFcheck_syntax db "Number or Alias",13,10,10 db " Interrupt 2F, the multiplex interrupt," db " is used by many programs to",13,10 db "signal that they are installed. 2FCHECK" db " calls interrupt 2F with a device",13,10 db "number between 0 and 255. 2FCHECK returns a" db " 0 if no program responds to",13,10 db "this device ID. If a program does respond," db " a non-zero number is returned.",13,10 db " To prevent users from remembering a series of" db " device IDs, one of the",13,10 db "following aliases can be used in place of the" db " device number.",13,10,10 db " PRINT - PRINT resident code " db " ASSIGN - ASSIGN resident code",13,10 db " DRIVER - DRIVER.SYS device driver " db " SHARE - SHARE resident code",13,10 db " NET - Network redirector code " db " NLS - NLSFUNC resident code",13,10 db " ANSI - ANSI.SYS device driver " db " DOSBOX - OS/2 or Win DOS box",13,10 db " HIMEM - HIMEM.SYS memory manager " db " DOSKEY - DOSKEY resident code",13,10 db " GRAPHTBL - GRAFTABL resident code " db " APPEND - APPEND resident code",13,10 db " DISPLAY - DISPLAY.SYS",0 dow_help DB "the day of the week (1=Sunday)",0 ;2.3 CW errlvl_help DB "the errorlevel of filename",0 ;2.3 CW errlvl_syntax DB "Filename [parameters]",0 ;2.3 CW gt_help DB "a 1 if Num1 is greater than Num2",0 ;2.5 CW lt_help DB "a 1 if Num1 is less than Num2",0 ;2.5 CW ge_help DB "a 1 if Num1 if greater than or equal to Num2",0 ;2.5 CW le_help DB "a 1 if Num1 if less than or equal to Num2",0 ;2.5 CW gtlt_syntax DB "Num1, Num2",0 ;2.5 CW infomsg1 db "Installed",0 ;----------------------------------------------------------------------- ;INITIALIZE - Start of non resident code. ;----------------------------------------------------------------------- initialize proc near assume cs:code,ds:code,es:code cld ;Set string ops 'up.' mov word ptr [entry],0 mov ah,30h ;Get DOS version, run only int 21h ; if 2.0 or greater. xchg al,ah ;Swap major, minor numbers mov dos_version,ax cmp ah,2 jae init_1 mov si,offset program call print_strcr mov si,offset errmsg0 ;Bad DOS version call print_strcr mov al,1 jmp short init_exit init_1: call check4xms ;Chk extended mem mgr mov xms_version,ax call check4ems ;Chk expanded mem mgr mov ems_version,ax mov di,TRANS_STACK ;Set up data buffers mov sp,di ;Set stack mov dest_var_val,di xor ax,ax mov cx,VAR_SIZE rep stosb mov databuff_ptr,di add di,DATABUFF_SIZE+15 mov cl,4 shr di,cl mov bx,di mov ah,4ah ;Reduce memory allocation int 21h jnc init_21 mov al,-1 ;Set out of memory code jmp init_exit init_21: call getcomspec ;Get the name of the shell call getname ;Get the name of the prog call findenv ;Use parent's env by def jc init_4 mov localenv_seg,ax init_4: call findmaster ;Find master env jc init_5 mov masterenv_seg,ax init_5: call main ;Program, do your stuff cmp install_flag,0 ;See if we should install je init_exit call install ;If we return, error call print_strcr ;Print error init_exit: mov ah,4Ch ;Terminate int 21h initialize endp ;----------------------------------------------------------------------- ; INSTALL Installs Strings as a TSR ;----------------------------------------------------------------------- install proc near assume cs:code,ds:code,es:code mov ax,31eh cmp ax,dos_version ;See if DOS 3.3 jbe install_1 call seterr0msg ;Error, not DOS 3.3 ret install_1: mov ax,352fh ;Get interrupt 2F (MUX) int 21h ; vector. mov word ptr [int2fh],bx mov word ptr [int2fh+2],es push cs pop es mov ax,252fh ;Point int 2F to internal mov dx,offset muxint ; routine. int 21h mov si,offset infomsg1 call print_strcr mov installed,1 ;Set installed flag mov di,RES_STACK ;Set up data buffers mov dest_var_val,di xor ax,ax mov cx,VAR_SIZE jmp final_install install endp ;----------------------------------------------------------------------- ; GETNAME Copies the name of the program to the name buffer ;----------------------------------------------------------------------- getname proc near assume cs:code,ds:code,es:code push es mov ax,300h cmp dos_version,300h ;See if DOS 3.0 or later jb getname_exit mov ax,ds:[2ch] ;Get env segment push ax dec ax mov es,ax assume es:nothing mov cx,es:[3] ;Get env seg size shl cx,1 shl cx,1 shl cx,1 shl cx,1 pop es ;Get back env seg xor ax,ax mov di,ax getname_1: repnz scasb ;Scan env for 00 jne getname_exit cmp byte ptr es:[di],0 jne getname_1 add di,3 ;Move past cnt byte mov si,databuff_ptr ;Use file buffer xchg di,si assume ds:nothing push ds ;Copy the filename push es ; into a local pop ds ; buffer to avoid pop es ; segment probs call copy_string ; with called procs. mov ax,cs mov ds,ax mov es,ax assume ds:code,es:code mov si,databuff_ptr mov di,si add di,100h call get_filename mov strings_namelen,cx ;Save length mov di,offset strings_name call copy_string getname_exit: pop es ret getname endp ;----------------------------------------------------------------------- ; CHKARENA Verifys a memory arena header. ; Entry: AX - Memory block to verify ; Exit: BX - Owner of memory block ; CX - Size of memory block ; CF - Clear if valid arena header ; ZF - Clear if last memory block ;----------------------------------------------------------------------- chkarena proc near assume cs:code,ds:code,es:code,ss:code push ax push es dec ax mov es,ax mov bx,es:[1] ;Get owner of block mov cx,es:[3] ;Get size of block cmp byte ptr es:[0],"M" ;See if proper signature je chkarena_exit ;ZF set, CF clear if match cmp byte ptr es:[0],"Z" ;See if last blk sig jne chkarena_error or ax,ax ;Clear ZF, Clear CF chkarena_exit: pop es pop ax ret chkarena_error: stc jmp short chkarena_exit chkarena endp ;----------------------------------------------------------------------- ; FINDCMDPSP Finds the PSP of the command processor ; Exit: AX - Segment of command processor PSP ;----------------------------------------------------------------------- findcmdpsp proc near assume cs:code,ds:code,es:code,ss:code push dx push es findcmdpsp_1: mov ax,es:[16h] ;Get parent's PSP call chkarena ;See if valid memory block jc findcmdpsp_error mov es,ax cmp ax,es:[16h] ;See if PSP is own parent jne findcmdpsp_1 ;No, keep looking clc findcmdpsp_exit: pop es pop dx ret findcmdpsp_error: stc jmp short findcmdpsp_exit findcmdpsp endp ;----------------------------------------------------------------------- ; FINDPSPENV Finds the environment block for a COMMAND.COM PSP ; Entry: AX - Segment of PSP ; Exit: AX - Segment of environment ;----------------------------------------------------------------------- findpspenv proc near assume cs:code,ds:code,es:code,ss:code push bx push es mov dx,ax ;Save PSP segment mov es,ax mov ax,es:[2ch] ;Get ptr to environment call chkarena ;See if valid memory block jc findpspenv_1 cmp dx,bx ;See if owned by cmd.com jne findpspenv_1 jmp short findpspenv_3 findpspenv_1: mov ax,dx ;Get original PSP call chkarena ;Compute size of segment jc findpspenv_error findpspenv_2: add ax,cx ;Add size of memory block inc ax call chkarena jc findpspenv_error jnz findpspenv_error ;Env never last env block cmp bx,dx ;See if owned by CMD.COM jne findpspenv_2 ;Yes, exit findpspenv_3: clc findpspenv_exit: pop es pop bx ret findpspenv_error: stc jmp short findpspenv_exit findpspenv endp ;----------------------------------------------------------------------- ; FINDENV Finds the parent's environment block. ; Exit: AX - Segment of local command processor environment. ;----------------------------------------------------------------------- findenv proc near assume cs:code,ds:code,es:code,ss:code call findcmdpsp ;Get PSP of command.com jc findenv_error call findpspenv ;Find environment for PSP jc findenv_error findenv_exit: ret findenv_error: mov si,offset errmsg16 ;Environment not found jmp short findenv_exit findenv endp ;----------------------------------------------------------------------- ; FINDMASTER Finds the master environment block. ; Exit: AX - Segment of master environment block. ;----------------------------------------------------------------------- findmaster proc near assume cs:code,ds:code,es:code,ss:code push di push es mov ah,52h ;Get address of first MCB int 21h mov ax,es:[bx-2] ;point ES to MCB findmaster_1: inc ax call chkarena ;See if valid mem block jc findmaster_error jnz findmaster_error cmp ax,bx ;See if PSP block je findmaster_2 add ax,cx ;No, add size to move 2 next jmp short findmaster_1 findmaster_2: cmp dos_version,0a00h ;If OS/2, use DOS 3.3 method. jae findmaster_3 cmp dos_version,0400h ;If DOS 4.00 or greater, jb findmaster_3 ; COMMAND.COM may not be the push ax dec ax mov es,ax ; first program loaded. Look pop ax push si mov si,offset shell_name ; at the name of the program mov di,8 ; stored in the last 8 bytes xor cx,cx ; of the memory control mov cl,shell_namlen ; block. If the name of the repe cmpsb ; command processor isn't pop si jne findmaster_1 ; found, keep looking. cmp shell_namlen,8 ;If name shorter than 8 chars je findmaster_3 ; check for trailing zero. cmp byte ptr es:[di],0 jne findmaster_1 findmaster_3: call findpspenv ;Find environment for PSP findmaster_exit: pop es pop di ret findmaster_error: mov si,offset errmsg16 ;Environment not found stc jmp short findmaster_exit findmaster endp ;----------------------------------------------------------------------- ; CHECK4XMS Checks to see if an extended memory driver is loaded ; Exit: CF - Clear if ext driver found ; AX - EXT Version if CF clear ; SI - Points to error message if CF set ;----------------------------------------------------------------------- check4xms proc near mov ax,4300h ;Extended mem drvr chk int 2fh or al,al ;See if loaded je check4xms_error push es mov ax,4310h ;Get driver entry pt int 2fh mov word ptr [xms_serv],bx mov word ptr [xms_serv+2],es pop es xor ax,ax call ds:[xms_serv] ;Get version number mov bx,ax ;Version num returned shr al,1 ; as BCD. Convert shr al,1 ; to std DOS format shr al,1 ; of maj in AH and shr al,1 ; minor in AL mov ah,10 mul ah and bl,0fh add al,bl mov ah,bh clc check4xms_exit: ret check4xms_error: stc xor ax,ax mov si,offset errmsg19 ;ext mem not available jmp short check4xms_exit check4xms endp ;----------------------------------------------------------------------- ; CHECK4EMS Checks to see if an expanded memory driver is loaded ; Exit: CF - Clear if EMS driver found ; AX - EMS Version if CF clear ; SI - Points to error message if CF set ;----------------------------------------------------------------------- check4ems proc near push es push di mov ax,3567h ;Get interrupt 67 vector int 21h mov di,0ah mov si,offset ems_header mov cx,8 repe cmpsb pop di pop es jne check4ems_error mov ah,40h ;Get status int 67h or ah,ah jne check4ems_error mov ah,46h ;Get version int 67h or ah,ah jne check4ems_error mov bl,al ;Convert ver number shl ax,1 shl ax,1 shl ax,1 shl ax,1 mov al,bl and ax,0f0fh clc check4ems_exit: ret check4ems_error: stc xor ax,ax mov si,offset errmsg17 ;EMS not available jmp short check4ems_exit check4ems endp even ;Set stack on word boundry end_of_code = $ code ends end entry